/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / P4UTIL.ZIP / BSICWRDS.PRG

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 10 24 10 05 00 8f 20 | 2a 2a 2a 2a 20 20 20 42 |..$.... |****   B|
|00000010| 41 53 49 43 20 4b 45 59 | 57 4f 52 44 53 20 20 20 |ASIC KEY|WORDS   |
|00000020| 2a 2a 2a 2a 00 45 10 0a | 00 8f 20 2a 2a 20 20 20 |****.E..|.. **   |
|00000030| 42 59 20 53 54 45 56 45 | 20 57 45 52 4b 4d 41 4e |BY STEVE| WERKMAN|
|00000040| 20 20 20 2a 2a 00 66 10 | 0f 00 8f 20 2a 2a 20 20 |   **.f.|... **  |
|00000050| 20 34 32 34 20 45 2e 20 | 53 45 43 4f 4e 44 20 53 | 424 E. |SECOND S|
|00000060| 54 2e 20 20 2a 2a 00 87 | 10 14 00 8f 20 2a 2a 20 |T.  **..|.... ** |
|00000070| 20 50 45 52 52 59 53 42 | 55 52 47 2c 4f 48 20 34 | PERRYSB|URG,OH 4|
|00000080| 33 35 35 31 20 2a 2a 00 | a8 10 19 00 8f 20 2a 2a |3551 **.|..... **|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 00 c9 10 1a 00 8f 20 2a |********|...... *|
|000000b0| 2a 20 20 20 20 20 20 20 | 52 45 46 45 52 45 4e 43 |*       |REFERENC|
|000000c0| 45 53 20 20 20 20 20 2a | 2a 00 fc 10 1b 00 8f 20 |ES     *|*...... |
|000000d0| 2a 2a 20 43 4f 4d 4d 4f | 44 4f 52 45 20 36 34 20 |** COMMO|DORE 64 |
|000000e0| 50 52 4f 47 52 41 4d 4d | 45 52 27 53 20 52 45 46 |PROGRAMM|ER'S REF|
|000000f0| 45 52 45 4e 43 45 20 47 | 55 49 44 45 00 41 11 1c |ERENCE G|UIDE.A..|
|00000100| 00 8f 20 2a 2a 20 43 4f | 4d 4d 4f 44 4f 52 45 20 |.. ** CO|MMODORE |
|00000110| 42 55 53 49 4e 45 53 53 | 20 4d 41 43 48 49 4e 45 |BUSINESS| MACHINE|
|00000120| 53 20 49 4e 43 20 26 20 | 48 4f 57 41 52 44 20 57 |S INC & |HOWARD W|
|00000130| 2e 20 53 41 4d 53 20 26 | 20 43 4f 2e 20 49 4e 43 |. SAMS &| CO. INC|
|00000140| 2e 00 7a 11 1d 00 8f 20 | 2a 2a 20 59 4f 55 52 20 |..z.... |** YOUR |
|00000150| 43 4f 4d 4d 4f 44 4f 52 | 45 20 36 34 20 2d 20 4a |COMMODOR|E 64 - J|
|00000160| 4f 48 4e 20 48 45 49 4c | 42 4f 52 4e 20 26 20 52 |OHN HEIL|BORN & R|
|00000170| 4f 4e 20 54 41 4c 42 4f | 54 54 00 98 11 1e 00 8f |ON TALBO|TT......|
|00000180| 20 2a 2a 20 4f 53 42 4f | 52 4e 45 2f 4d 43 47 52 | ** OSBO|RNE/MCGR|
|00000190| 41 57 20 2d 48 49 4c 4c | 00 a1 11 23 00 99 22 93 |AW -HILL|...#..".|
|000001a0| 22 00 bb 11 28 00 99 a3 | 31 34 29 22 90 20 12 20 |"...(...|14)". . |
|000001b0| 20 92 20 20 20 12 a9 20 | 20 92 22 00 d6 11 2a 00 | .   .. | ."...*.|
|000001c0| 99 a3 31 34 29 22 12 20 | 20 20 20 92 20 12 a9 92 |..14)". |   . ...|
|000001d0| a9 20 12 20 92 22 00 f2 | 11 2c 00 99 a3 31 34 29 |. . ."..|.,...14)|
|000001e0| 22 12 20 20 20 20 92 20 | 12 20 92 12 20 20 20 20 |".    . |. ..    |
|000001f0| 92 22 00 0c 12 2e 00 99 | a3 31 34 29 22 20 12 20 |."......|.14)" . |
|00000200| 20 92 20 20 20 20 20 12 | 20 92 20 22 00 36 12 2f | .     .| . ".6./|
|00000210| 00 99 a3 31 37 29 22 11 | 11 42 41 53 49 43 22 3a |...17)".|.BASIC":|
|00000220| 99 a3 31 33 29 22 11 42 | 41 53 49 43 20 4b 45 59 |..13)".B|ASIC KEY|
|00000230| 57 4f 52 44 53 22 00 55 | 12 30 00 99 a3 31 32 29 |WORDS".U|.0...12)|
|00000240| 22 11 11 11 42 59 20 53 | 54 45 56 45 20 57 45 52 |"...BY S|TEVE WER|
|00000250| 4b 4d 41 4e 22 00 6a 12 | 32 00 81 20 49 b2 31 20 |KMAN".j.|2.. I.1 |
|00000260| a4 20 34 30 30 30 3a 82 | 20 49 00 83 12 50 00 97 |. 4000:.| I...P..|
|00000270| 36 35 33 30 31 2c 31 31 | 33 3a 97 36 35 33 30 35 |65301,11|3:.65305|
|00000280| 2c 31 34 00 a9 12 5a 00 | 4b 24 b2 22 11 11 11 50 |,14...Z.|K$."...P|
|00000290| 52 45 53 53 20 41 4e 59 | 20 4b 45 59 20 54 4f 20 |RESS ANY| KEY TO |
|000002a0| 43 4f 4e 54 49 4e 55 45 | 22 00 d4 12 5b 00 53 24 |CONTINUE|"...[.S$|
|000002b0| b2 22 11 1d 1d 1d 53 45 | 4c 45 43 54 20 4e 55 4d |."....SE|LECT NUM|
|000002c0| 42 45 52 20 46 4f 52 20 | 45 58 50 4c 41 4e 41 54 |BER FOR |EXPLANAT|
|000002d0| 49 4f 4e 22 00 f7 12 5c | 00 46 24 b2 22 11 1d 1d |ION"...\|.F$."...|
|000002e0| 1d 50 52 45 53 53 20 2a | 20 46 4f 52 20 4e 45 58 |.PRESS *| FOR NEX|
|000002f0| 54 20 4d 45 4e 55 22 00 | 1e 13 5d 00 42 24 b2 22 |T MENU".|..].B$."|
|00000300| 11 1d 1d 1d 50 52 45 53 | 53 20 5c 20 46 4f 52 20 |....PRES|S \ FOR |
|00000310| 50 52 45 56 49 4f 55 53 | 20 4d 45 4e 55 22 00 29 |PREVIOUS| MENU".)|
|00000320| 13 5f 00 99 20 22 93 9a | 22 00 54 13 64 00 99 a3 |._.. "..|".T.d...|
|00000330| 35 29 22 90 11 42 41 53 | 49 43 20 43 4f 4d 4d 41 |5)"..BAS|IC COMMA|
|00000340| 4e 44 53 2e 20 28 43 4f | 4d 4d 41 4e 44 20 4d 4f |NDS. (CO|MMAND MO|
|00000350| 44 45 29 22 00 7b 13 6e | 00 99 a3 31 35 29 22 11 |DE)".{.n|...15)".|
|00000360| 31 2e 2d 20 43 4f 4e 54 | 11 11 9d 9d 9d 9d 9d 9d |1.- CONT|........|
|00000370| 9d 9d 32 2e 2d 20 4c 49 | 53 54 22 00 b1 13 78 00 |..2.- LI|ST"...x.|
|00000380| 99 a3 31 35 29 22 11 33 | 2e 2d 20 4c 4f 41 44 11 |..15)".3|.- LOAD.|
|00000390| 11 9d 9d 9d 9d 9d 9d 9d | 9d 34 2e 2d 20 4e 45 57 |........|.4.- NEW|
|000003a0| 11 11 9d 9d 9d 9d 9d 9d | 9d 35 2e 2d 20 52 55 4e |........|.5.- RUN|
|000003b0| 22 00 da 13 82 00 99 a3 | 31 35 29 22 11 36 2e 2d |".......|15)".6.-|
|000003c0| 20 53 41 56 45 11 11 9d | 9d 9d 9d 9d 9d 9d 9d 37 | SAVE...|.......7|
|000003d0| 2e 2d 20 56 45 52 49 46 | 59 22 00 e6 13 8c 00 99 |.- VERIF|Y"......|
|000003e0| 22 11 11 22 53 24 00 f1 | 13 91 00 99 22 11 22 46 |".."S$..|...."."F|
|000003f0| 24 00 06 14 92 00 a1 20 | 41 24 3a 8b 20 41 24 b2 |$...... |A$:. A$.|
|00000400| 22 22 a7 31 34 36 00 17 | 14 96 00 8b 20 41 24 b2 |"".146..|.... A$.|
|00000410| 22 2a 22 a7 32 30 30 00 | 23 14 97 00 41 b2 c5 28 |"*".200.|#...A..(|
|00000420| 41 24 29 00 50 14 98 00 | 91 20 41 20 89 20 31 30 |A$).P...|. A . 10|
|00000430| 31 30 2c 31 30 32 30 2c | 31 30 33 30 2c 31 30 34 |10,1020,|1030,104|
|00000440| 30 2c 31 30 35 30 2c 31 | 30 36 30 2c 31 30 37 30 |0,1050,1|060,1070|
|00000450| 00 66 14 9e 00 8b 20 41 | b3 31 20 b0 20 41 b1 37 |.f.... A|.1 . A.7|
|00000460| 20 a7 20 31 34 36 00 72 | 14 c8 00 99 c7 28 31 34 | . 146.r|.....(14|
|00000470| 37 29 00 90 14 d2 00 99 | a3 39 29 22 50 52 4f 47 |7)......|.9)"PROG|
|00000480| 52 41 4d 20 43 4f 4e 54 | 52 4f 4c 4c 45 52 53 22 |RAM CONT|ROLLERS"|
|00000490| 00 da 14 dc 00 99 a3 31 | 32 29 22 11 31 2e 2d 20 |.......1|2)".1.- |
|000004a0| 45 4e 44 11 11 9d 9d 9d | 9d 9d 9d 9d 32 2e 2d 20 |END.....|....2.- |
|000004b0| 46 4f 52 2e 2e 4e 45 58 | 54 11 11 9d 9d 9d 9d 9d |FOR..NEX|T.......|
|000004c0| 9d 9d 9d 9d 9d 9d 9d 9d | 33 2e 2d 20 47 4f 53 55 |........|3.- GOSU|
|000004d0| 42 2e 2e 52 45 54 55 52 | 4e 22 00 1f 15 e6 00 99 |B..RETUR|N"......|
|000004e0| a3 31 32 29 22 11 34 2e | 2d 20 49 46 2e 2e 54 48 |.12)".4.|- IF..TH|
|000004f0| 45 4e 11 11 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |EN......|........|
|00000500| 35 2e 2d 20 47 4f 54 4f | 11 11 9d 9d 9d 9d 9d 9d |5.- GOTO|........|
|00000510| 9d 9d 36 2e 2d 20 4f 4e | 2e 2e 47 4f 54 4f 22 00 |..6.- ON|..GOTO".|
|00000520| 52 15 f0 00 99 a3 31 32 | 29 22 11 37 2e 2d 20 4f |R.....12|)".7.- O|
|00000530| 4e 20 47 4f 2e 2e 53 55 | 42 11 11 9d 9d 9d 9d 9d |N GO..SU|B.......|
|00000540| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 38 2e 2d 20 53 54 4f |........|.8.- STO|
|00000550| 50 22 00 5a 15 f1 00 99 | 53 24 00 62 15 f2 00 99 |P".Z....|S$.b....|
|00000560| 42 24 00 6a 15 f5 00 99 | 46 24 00 7f 15 f6 00 a1 |B$.j....|F$......|
|00000570| 20 41 24 3a 8b 20 41 24 | b2 22 22 a7 32 34 36 00 | A$:. A$|."".246.|
|00000580| 90 15 f9 00 8b 20 41 24 | b2 22 2a 22 a7 33 30 30 |..... A$|."*".300|
|00000590| 00 a0 15 fa 00 8b 20 41 | 24 b2 22 5c 22 a7 39 35 |...... A|$."\".95|
|000005a0| 00 ac 15 fb 00 41 b2 c5 | 28 41 24 29 00 de 15 fc |.....A..|(A$)....|
|000005b0| 00 91 20 41 20 89 20 32 | 30 31 30 2c 32 30 32 30 |.. A . 2|010,2020|
|000005c0| 2c 32 30 33 30 2c 32 30 | 34 30 2c 32 30 35 31 2c |,2030,20|40,2051,|
|000005d0| 32 30 36 30 2c 32 30 37 | 30 2c 32 30 38 30 00 f0 |2060,207|0,2080..|
|000005e0| 15 04 01 8b 20 41 b3 31 | b0 41 b1 38 a7 32 34 36 |.... A.1|.A.8.246|
|000005f0| 00 fc 15 2c 01 99 c7 28 | 31 34 37 29 00 25 16 36 |...,...(|147).%.6|
|00000600| 01 99 a3 35 29 22 11 4b | 45 59 42 4f 41 52 44 20 |...5)".K|EYBOARD |
|00000610| 26 20 53 43 52 45 45 4e | 20 43 4f 4e 54 52 4f 4c |& SCREEN| CONTROL|
|00000620| 4c 45 52 53 22 00 6f 16 | 40 01 99 a3 31 32 29 22 |LERS".o.|@...12)"|
|00000630| 11 31 2e 2d 20 47 45 54 | 11 11 9d 9d 9d 9d 9d 9d |.1.- GET|........|
|00000640| 9d 32 2e 2d 20 49 4e 50 | 55 54 11 11 9d 9d 9d 9d |.2.- INP|UT......|
|00000650| 9d 9d 9d 9d 9d 33 2e 2d | 20 50 4f 53 11 11 9d 9d |.....3.-| POS....|
|00000660| 9d 9d 9d 9d 9d 34 2e 2d | 20 50 52 49 4e 54 22 00 |.....4.-| PRINT".|
|00000670| 93 16 4a 01 99 a3 31 32 | 29 22 11 35 2e 2d 20 53 |..J...12|)".5.- S|
|00000680| 50 43 11 11 9d 9d 9d 9d | 9d 9d 9d 36 2e 2d 20 54 |PC......|...6.- T|
|00000690| 41 42 22 00 9b 16 54 01 | 99 3a 99 00 a3 16 55 01 |AB"...T.|.:....U.|
|000006a0| 99 53 24 00 ab 16 56 01 | 99 42 24 00 b3 16 59 01 |.S$...V.|.B$...Y.|
|000006b0| 99 46 24 00 c9 16 5a 01 | a1 20 41 24 3a 8b 20 41 |.F$...Z.|. A$:. A|
|000006c0| 24 b2 22 22 a7 20 33 34 | 36 00 da 16 5d 01 8b 20 |$."". 34|6...].. |
|000006d0| 41 24 b2 22 2a 22 a7 34 | 30 30 00 ec 16 5e 01 8b |A$."*".4|00...^..|
|000006e0| 20 41 24 b2 22 5c 22 a7 | 20 32 30 30 00 f8 16 63 | A$."\".| 200...c|
|000006f0| 01 41 b2 c5 28 41 24 29 | 00 1f 17 64 01 91 20 41 |.A..(A$)|...d.. A|
|00000700| 20 89 33 30 31 30 2c 33 | 30 32 30 2c 33 30 33 30 | .3010,3|020,3030|
|00000710| 2c 33 30 34 30 2c 33 30 | 35 30 2c 33 30 36 30 00 |,3040,30|50,3060.|
|00000720| 33 17 65 01 8b 20 41 b3 | 31 b0 41 b1 36 20 a7 20 |3.e.. A.|1.A.6 . |
|00000730| 33 34 36 00 3f 17 90 01 | 99 c7 28 31 34 37 29 00 |346.?...|..(147).|
|00000740| 60 17 9a 01 99 a3 31 30 | 29 22 11 41 52 49 54 48 |`.....10|)".ARITH|
|00000750| 4d 45 54 49 43 20 46 55 | 4e 43 54 49 4f 4e 53 22 |METIC FU|NCTIONS"|
|00000760| 00 8d 17 a4 01 99 a3 33 | 29 22 11 11 31 2e 2d 20 |.......3|)"..1.- |
|00000770| 41 42 53 20 20 20 20 20 | 20 20 35 2e 2d 20 45 58 |ABS     |  5.- EX|
|00000780| 50 20 20 20 20 39 2e 2d | 20 53 47 4e 22 00 ba 17 |P    9.-| SGN"...|
|00000790| a9 01 99 a3 33 29 22 88 | 11 32 2e 2d 20 41 54 4e |....3)".|.2.- ATN|
|000007a0| 20 20 20 20 20 20 20 36 | 2e 2d 20 49 4e 54 20 20 |       6|.- INT  |
|000007b0| 20 20 41 2e 2d 20 53 49 | 4e 22 00 e6 17 ae 01 99 |  A.- SI|N"......|
|000007c0| a3 33 29 22 11 33 2e 2d | 20 43 4f 53 20 20 20 20 |.3)".3.-| COS    |
|000007d0| 20 20 20 37 2e 2d 20 4c | 4f 47 20 20 20 20 42 2e |   7.- L|OG    B.|
|000007e0| 2d 20 53 51 52 22 00 12 | 18 b3 01 99 a3 33 29 22 |- SQR"..|.....3)"|
|000007f0| 11 34 2e 2d 20 44 45 46 | 20 46 4e 20 20 20 20 38 |.4.- DEF| FN    8|
|00000800| 2e 2d 20 52 4e 44 20 20 | 20 20 43 2e 2d 20 54 41 |.- RND  |  C.- TA|
|00000810| 4e 22 00 36 18 b8 01 99 | a3 37 29 22 11 20 44 2e |N".6....|.7)". D.|
|00000820| 2d 20 54 49 20 28 54 49 | 4d 45 29 20 20 20 45 2e |- TI (TI|ME)   E.|
|00000830| 2d 20 56 41 4c 22 00 7f | 18 b9 01 99 a3 36 29 22 |- VAL"..|.....6)"|
|00000840| 11 11 53 45 4c 45 43 54 | 20 4e 55 4d 42 45 52 20 |..SELECT| NUMBER |
|00000850| 4f 52 20 4c 45 54 54 45 | 52 20 46 4f 52 20 20 20 |OR LETTE|R FOR   |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 45 58 50 4c 41 | 4e 41 54 49 4f 4e 22 00 |   EXPLA|NATION".|
|00000880| 87 18 ba 01 99 46 24 00 | 8f 18 bb 01 99 42 24 00 |.....F$.|.....B$.|
|00000890| a2 18 be 01 a1 41 24 3a | 8b 41 24 b2 22 22 a7 34 |.....A$:|.A$."".4|
|000008a0| 34 36 00 b2 18 c1 01 8b | 41 24 b2 22 2a 22 a7 35 |46......|A$."*".5|
|000008b0| 30 30 00 c3 18 c2 01 8b | 20 41 24 b2 22 5c 22 a7 |00......| A$."\".|
|000008c0| 33 30 30 00 cf 18 c3 01 | 41 b2 c5 28 41 24 29 00 |300.....|A..(A$).|
|000008d0| 06 19 c7 01 91 20 41 20 | 89 20 34 30 31 30 2c 34 |..... A |. 4010,4|
|000008e0| 30 32 30 2c 34 30 33 30 | 2c 34 30 34 30 2c 34 30 |020,4030|,4040,40|
|000008f0| 35 30 2c 34 30 36 30 2c | 34 30 37 30 2c 34 30 38 |50,4060,|4070,408|
|00000900| 30 2c 34 30 39 30 00 18 | 19 c8 01 8b 20 41 24 b2 |0,4090..|.... A$.|
|00000910| 22 41 22 a7 34 31 30 30 | 00 2a 19 c9 01 8b 20 41 |"A".4100|.*.... A|
|00000920| 24 b2 22 42 22 a7 34 31 | 31 30 00 3c 19 ca 01 8b |$."B".41|10.<....|
|00000930| 20 41 24 b2 22 43 22 a7 | 34 31 32 30 00 4e 19 cb | A$."C".|4120.N..|
|00000940| 01 8b 20 41 24 b2 22 44 | 22 a7 34 31 33 30 00 60 |.. A$."D|".4130.`|
|00000950| 19 cc 01 8b 20 41 24 b2 | 22 45 22 a7 34 31 34 30 |.... A$.|"E".4140|
|00000960| 00 6c 19 f4 01 99 c7 28 | 31 34 37 29 00 a2 19 fe |.l.....(|147)....|
|00000970| 01 99 a3 38 29 22 11 46 | 49 4c 45 20 41 4e 44 20 |...8)".F|ILE AND |
|00000980| 44 45 56 49 43 45 20 48 | 41 4e 44 4c 49 4e 47 22 |DEVICE H|ANDLING"|
|00000990| 3a 99 a3 31 35 29 22 11 | 31 2e 2d 20 43 4c 4f 53 |:..15)".|1.- CLOS|
|000009a0| 45 22 00 da 19 08 02 99 | a3 31 35 29 22 11 32 2e |E"......|.15)".2.|
|000009b0| 2d 20 43 4d 44 22 3a 99 | a3 31 35 29 22 11 33 2e |- CMD":.|.15)".3.|
|000009c0| 2d 20 47 45 54 23 22 3a | 99 a3 31 35 29 22 11 34 |- GET#":|..15)".4|
|000009d0| 2e 2d 20 49 4e 50 55 54 | 23 22 00 02 1a 12 02 99 |.- INPUT|#"......|
|000009e0| a3 31 35 29 22 11 35 2e | 2d 20 4f 50 45 4e 22 3a |.15)".5.|- OPEN":|
|000009f0| 99 a3 31 35 29 22 11 36 | 2e 2d 20 50 52 49 4e 54 |..15)".6|.- PRINT|
|00000a00| 23 22 00 19 1a 1c 02 99 | a3 31 35 29 22 11 37 2e |#"......|.15)".7.|
|00000a10| 2d 20 53 54 41 54 55 53 | 22 00 21 1a 1d 02 99 53 |- STATUS|".!....S|
|00000a20| 24 00 29 1a 1e 02 99 42 | 24 00 31 1a 1f 02 99 46 |$.)....B|$.1....F|
|00000a30| 24 00 45 1a 22 02 a1 20 | 41 24 3a 8b 41 24 b2 22 |$.E.".. |A$:.A$."|
|00000a40| 22 a7 35 34 36 00 56 1a | 25 02 8b 20 41 24 b2 22 |".546.V.|%.. A$."|
|00000a50| 2a 22 a7 36 30 30 00 67 | 1a 26 02 8b 20 41 24 b2 |*".600.g|.&.. A$.|
|00000a60| 22 5c 22 a7 34 30 30 00 | 73 1a 27 02 41 b2 c5 28 |"\".400.|s.'.A..(|
|00000a70| 41 24 29 00 a0 1a 28 02 | 91 20 41 20 89 20 35 30 |A$)...(.|. A . 50|
|00000a80| 31 30 2c 35 30 32 30 2c | 35 30 33 30 2c 35 30 34 |10,5020,|5030,504|
|00000a90| 30 2c 35 30 35 30 2c 35 | 30 36 30 2c 35 30 37 30 |0,5050,5|060,5070|
|00000aa0| 00 b3 1a 30 02 8b 20 41 | b3 31 b0 20 41 b1 37 a7 |...0.. A|.1. A.7.|
|00000ab0| 35 34 36 00 bf 1a 58 02 | 99 c7 28 31 34 37 29 00 |546...X.|..(147).|
|00000ac0| 01 1b 62 02 99 a3 31 30 | 29 22 41 52 52 41 59 20 |..b...10|)"ARRAY |
|00000ad0| 41 4e 44 20 56 41 52 49 | 41 42 4c 45 22 3a 99 a3 |AND VARI|ABLE":..|
|00000ae0| 31 33 29 22 4d 41 4e 49 | 50 55 4c 41 54 49 4f 4e |13)"MANI|PULATION|
|00000af0| 22 3a 99 a3 31 34 29 22 | 11 31 2e 2d 20 43 4c 52 |":..14)"|.1.- CLR|
|00000b00| 22 00 36 1b 6c 02 99 a3 | 31 34 29 22 11 32 2e 2d |".6.l...|14)".2.-|
|00000b10| 20 44 41 54 41 22 3a 99 | a3 31 34 29 22 11 33 2e | DATA":.|.14)".3.|
|00000b20| 2d 20 44 49 4d 22 3a 99 | a3 31 34 29 22 11 34 2e |- DIM":.|.14)".4.|
|00000b30| 2d 20 46 52 45 22 00 6f | 1b 76 02 99 a3 31 34 29 |- FRE".o|.v...14)|
|00000b40| 22 11 35 2e 2d 20 4c 45 | 54 22 3a 99 a3 31 34 29 |".5.- LE|T":..14)|
|00000b50| 22 11 36 2e 2d 20 52 45 | 41 44 22 3a 99 a3 31 34 |".6.- RE|AD":..14|
|00000b60| 29 22 11 37 2e 2d 20 52 | 45 53 54 4f 52 45 22 00 |)".7.- R|ESTORE".|
|00000b70| 77 1b 81 02 99 53 24 00 | 7f 1b 82 02 99 42 24 00 |w....S$.|.....B$.|
|00000b80| 87 1b 83 02 99 46 24 00 | 9c 1b 86 02 a1 20 41 24 |.....F$.|..... A$|
|00000b90| 3a 8b 20 41 24 b2 22 22 | a7 36 34 36 00 ac 1b 89 |:. A$.""|.646....|
|00000ba0| 02 8b 41 24 b2 22 2a 22 | a7 37 30 30 00 bc 1b 8a |..A$."*"|.700....|
|00000bb0| 02 8b 41 24 b2 22 5c 22 | a7 35 30 30 00 c9 1b 8b |..A$."\"|.500....|
|00000bc0| 02 41 20 b2 c5 28 41 24 | 29 00 f5 1b 8c 02 91 41 |.A ..(A$|)......A|
|00000bd0| 20 89 20 36 30 31 30 2c | 36 30 32 30 2c 36 30 33 | . 6010,|6020,603|
|00000be0| 30 2c 36 30 34 30 2c 36 | 30 35 30 2c 36 30 36 30 |0,6040,6|050,6060|
|00000bf0| 2c 36 30 37 30 00 07 1c | 94 02 8b 20 41 b3 31 b0 |,6070...|... A.1.|
|00000c00| 41 b1 37 a7 36 34 36 00 | 13 1c bc 02 99 c7 28 31 |A.7.646.|......(1|
|00000c10| 34 37 29 00 2f 1c c6 02 | 99 a3 31 32 29 22 53 54 |47)./...|..12)"ST|
|00000c20| 52 49 4e 47 20 46 55 4e | 43 54 49 4f 4e 53 22 00 |RING FUN|CTIONS".|
|00000c30| 66 1c d0 02 99 a3 31 34 | 29 22 11 31 2e 2d 20 41 |f.....14|)".1.- A|
|00000c40| 53 43 22 3a 99 a3 31 34 | 29 22 11 32 2e 2d 20 43 |SC":..14|)".2.- C|
|00000c50| 48 52 24 22 3a 99 a3 31 | 34 29 22 11 33 2e 2d 20 |HR$":..1|4)".3.- |
|00000c60| 4c 45 46 54 24 22 00 9e | 1c da 02 99 a3 31 34 29 |LEFT$"..|.....14)|
|00000c70| 22 11 34 2e 2d 20 4c 45 | 4e 22 3a 99 a3 31 34 29 |".4.- LE|N":..14)|
|00000c80| 22 11 35 2e 2d 20 4d 49 | 44 24 22 3a 99 a3 31 34 |".5.- MI|D$":..14|
|00000c90| 29 22 11 36 2e 2d 20 52 | 49 47 48 54 24 22 00 c5 |)".6.- R|IGHT$"..|
|00000ca0| 1c e4 02 99 a3 31 34 29 | 22 11 37 2e 2d 20 53 54 |.....14)|".7.- ST|
|00000cb0| 52 24 22 3a 99 a3 31 34 | 29 22 11 38 2e 2d 20 54 |R$":..14|)".8.- T|
|00000cc0| 49 4d 45 24 22 00 cd 1c | e5 02 99 53 24 00 d5 1c |IME$"...|...S$...|
|00000cd0| e6 02 99 42 24 00 dd 1c | e7 02 99 46 24 00 f1 1c |...B$...|...F$...|
|00000ce0| ea 02 a1 20 41 24 3a 8b | 41 24 b2 22 22 a7 37 34 |... A$:.|A$."".74|
|00000cf0| 36 00 02 1d ed 02 8b 20 | 41 24 b2 22 2a 22 a7 38 |6...... |A$."*".8|
|00000d00| 30 30 00 13 1d ee 02 8b | 20 41 24 b2 22 5c 22 a7 |00......| A$."\".|
|00000d10| 36 30 30 00 1f 1d ef 02 | 41 b2 c5 28 41 24 29 00 |600.....|A..(A$).|
|00000d20| 51 1d f0 02 91 20 41 20 | 89 20 37 30 31 30 2c 37 |Q.... A |. 7010,7|
|00000d30| 30 32 30 2c 37 30 33 30 | 2c 37 30 34 30 2c 37 30 |020,7030|,7040,70|
|00000d40| 35 30 2c 37 30 36 30 2c | 37 30 37 30 2c 37 30 38 |50,7060,|7070,708|
|00000d50| 30 00 63 1d f8 02 8b 20 | 41 b3 31 b0 41 b1 38 a7 |0.c.... |A.1.A.8.|
|00000d60| 37 34 36 00 6f 1d 20 03 | 99 c7 28 31 34 37 29 00 |746.o. .|..(147).|
|00000d70| 9d 1d 2a 03 99 a3 31 32 | 29 22 11 4d 41 43 48 49 |..*...12|)".MACHI|
|00000d80| 4e 45 20 4c 41 4e 47 55 | 41 47 45 22 3a 99 a3 31 |NE LANGU|AGE":..1|
|00000d90| 35 29 22 49 4e 54 45 52 | 46 41 43 45 22 00 c3 1d |5)"INTER|FACE"...|
|00000da0| 34 03 99 a3 31 34 29 22 | 11 31 2e 2d 20 50 45 45 |4...14)"|.1.- PEE|
|00000db0| 4b 22 3a 99 a3 31 34 29 | 22 11 32 2e 2d 20 50 4f |K":..14)|".2.- PO|
|00000dc0| 4b 45 22 00 e7 1d 3e 03 | 99 a3 31 34 29 22 11 33 |KE"...>.|..14)".3|
|00000dd0| 2e 2d 20 53 59 53 22 3a | 99 a3 31 34 29 22 11 34 |.- SYS":|..14)".4|
|00000de0| 2e 2d 20 55 53 52 22 00 | ef 1d 49 03 99 53 24 00 |.- USR".|..I..S$.|
|00000df0| f7 1d 4a 03 99 46 24 00 | ff 1d 4b 03 99 42 24 00 |..J..F$.|..K..B$.|
|00000e00| 12 1e 4e 03 a1 41 24 3a | 8b 41 24 b2 22 22 a7 38 |..N..A$:|.A$."".8|
|00000e10| 34 36 00 23 1e 51 03 8b | 20 41 24 b2 22 2a 22 a7 |46.#.Q..| A$."*".|
|00000e20| 39 30 30 00 34 1e 52 03 | 8b 20 41 24 b2 22 5c 22 |900.4.R.|. A$."\"|
|00000e30| a7 37 30 30 00 40 1e 53 | 03 41 b2 c5 28 41 24 29 |.700.@.S|.A..(A$)|
|00000e40| 00 5e 1e 54 03 91 20 41 | 20 89 20 38 30 31 30 2c |.^.T.. A| . 8010,|
|00000e50| 38 30 32 30 2c 38 30 33 | 30 2c 38 30 34 30 00 72 |8020,803|0,8040.r|
|00000e60| 1e 5c 03 8b 20 41 b3 31 | 20 b0 20 41 b1 34 a7 38 |.\.. A.1| . A.4.8|
|00000e70| 34 36 00 7e 1e 84 03 99 | c7 28 31 34 37 29 00 a2 |46.~....|.(147)..|
|00000e80| 1e 8e 03 99 a3 38 29 22 | 11 4d 49 53 43 45 4c 4c |.....8)"|.MISCELL|
|00000e90| 41 4e 45 4f 55 53 20 53 | 54 41 54 45 4d 45 4e 54 |ANEOUS S|TATEMENT|
|00000ea0| 53 22 00 c9 1e 98 03 99 | a3 31 34 29 22 11 11 11 |S"......|.14)"...|
|00000eb0| 31 2e 2d 20 52 45 4d 22 | 3a 99 a3 31 34 29 22 11 |1.- REM"|:..14)".|
|00000ec0| 32 2e 2d 20 57 41 49 54 | 22 00 da 1e af 03 99 22 |2.- WAIT|"......"|
|00000ed0| 11 11 11 11 11 11 11 22 | 42 24 00 f5 1e b0 03 99 |......."|B$......|
|00000ee0| 22 11 1d 1d 1d 50 52 45 | 53 53 20 51 20 54 4f 20 |"....PRE|SS Q TO |
|00000ef0| 51 55 49 54 22 00 08 1f | b2 03 a1 41 24 3a 8b 41 |QUIT"...|...A$:.A|
|00000f00| 24 b2 22 22 a7 39 34 36 | 00 19 1f b5 03 8b 20 41 |$."".946|...... A|
|00000f10| 24 b2 22 88 22 a7 38 30 | 30 00 35 1f b6 03 8b 20 |$.".".80|0.5.... |
|00000f20| 41 24 b2 22 51 22 b0 41 | 24 b2 22 2a 22 20 a7 20 |A$."Q".A|$."*" . |
|00000f30| 31 30 30 30 30 00 41 1f | b7 03 41 b2 c5 28 41 24 |10000.A.|..A..(A$|
|00000f40| 29 00 55 1f b8 03 91 20 | 41 20 89 20 39 30 31 30 |).U.... |A . 9010|
|00000f50| 2c 39 30 32 30 00 6e 1f | f2 03 99 c7 28 31 34 37 |,9020.n.|....(147|
|00000f60| 29 3a 99 a3 31 38 29 22 | 11 43 4f 4e 54 22 00 b5 |):..18)"|.CONT"..|
|00000f70| 1f f3 03 99 a3 35 29 22 | 11 49 46 20 41 20 50 52 |.....5)"|.IF A PR|
|00000f80| 4f 47 52 41 4d 20 57 41 | 53 20 48 41 4c 54 45 44 |OGRAM WA|S HALTED|
|00000f90| 20 42 59 20 41 20 27 53 | 54 4f 50 27 20 20 20 20 | BY A 'S|TOP'    |
|00000fa0| 20 4f 52 20 27 45 4e 44 | 27 20 53 54 41 54 45 4d | OR 'END|' STATEM|
|00000fb0| 45 4e 54 2d 22 00 e1 1f | f4 03 99 a3 35 29 22 11 |ENT-"...|....5)".|
|00000fc0| 4f 52 20 54 48 45 20 52 | 55 4e 2f 53 54 4f 50 20 |OR THE R|UN/STOP |
|00000fd0| 4b 45 59 20 57 41 53 20 | 50 52 45 53 53 45 44 2d |KEY WAS |PRESSED-|
|00000fe0| 22 00 0d 20 f5 03 99 a3 | 35 29 22 11 54 48 45 20 |".. ....|5)".THE |
|00000ff0| 50 52 4f 47 52 41 4d 20 | 57 49 4c 4c 20 52 45 2d |PROGRAM |WILL RE-|
|00001000| 53 54 41 52 54 20 41 54 | 20 54 48 45 22 00 36 20 |START AT| THE".6 |
|00001010| f6 03 99 a3 35 29 22 45 | 58 41 43 54 20 50 4c 41 |....5)"E|XACT PLA|
|00001020| 43 45 20 57 48 45 52 45 | 20 49 54 20 4c 45 46 54 |CE WHERE| IT LEFT|
|00001030| 20 4f 46 46 2e 22 00 78 | 20 f7 03 99 a3 35 29 22 | OFF.".x| ....5)"|
|00001040| 11 53 54 4f 50 20 53 54 | 41 54 45 4d 45 4e 54 53 |.STOP ST|ATEMENTS|
|00001050| 20 41 52 45 20 55 53 45 | 44 20 41 53 20 41 20 20 | ARE USE|D AS A  |
|00001060| 20 20 20 20 20 20 20 20 | 20 44 45 42 55 47 47 49 |        | DEBUGGI|
|00001070| 4e 47 20 54 4f 4f 4c 22 | 00 83 20 f9 03 99 a3 38 |NG TOOL"|.. ....8|
|00001080| 29 4b 24 00 97 20 fa 03 | a1 41 24 3a 8b 41 24 b2 |)K$.. ..|.A$:.A$.|
|00001090| 22 22 a7 31 30 31 38 00 | 9f 20 fb 03 89 39 35 00 |"".1018.|. ...95.|
|000010a0| ba 20 fc 03 99 c7 28 31 | 34 37 29 3a 99 a3 31 38 |. ....(1|47):..18|
|000010b0| 29 22 11 11 11 4c 49 53 | 54 22 00 f7 20 fd 03 99 |)"...LIS|T".. ...|
|000010c0| a3 35 29 22 11 27 4c 49 | 53 54 27 20 57 49 4c 4c |.5)".'LI|ST' WILL|
|000010d0| 20 4c 49 53 54 20 41 4c | 4c 20 4c 49 4e 45 53 20 | LIST AL|L LINES |
|000010e0| 49 4e 20 41 20 20 20 20 | 20 20 20 20 20 20 50 52 |IN A    |      PR|
|000010f0| 4f 47 52 41 4d 2e 22 00 | 42 21 fe 03 99 a3 35 29 |OGRAM.".|B!....5)|
|00001100| 22 11 27 4c 49 53 54 20 | 31 30 30 2d 32 30 30 27 |".'LIST |100-200'|
|00001110| 20 57 49 4c 4c 20 4c 49 | 53 54 20 41 4c 4c 20 20 | WILL LI|ST ALL  |
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 4c 49 4e 45 53 |        |   LINES|
|00001130| 20 46 52 4f 4d 20 31 30 | 30 20 54 4f 20 32 30 30 | FROM 10|0 TO 200|
|00001140| 2e 22 00 80 21 ff 03 99 | a3 35 29 22 11 27 4c 49 |."..!...|.5)".'LI|
|00001150| 53 54 20 31 30 30 27 20 | 57 49 4c 4c 20 4c 49 53 |ST 100' |WILL LIS|
|00001160| 54 20 4f 4e 4c 59 20 20 | 20 20 20 20 20 20 20 20 |T ONLY  |        |
|00001170| 20 20 20 20 20 20 4c 49 | 4e 45 20 31 30 30 2e 22 |      LI|NE 100."|
|00001180| 00 ab 21 00 04 99 a3 35 | 29 22 11 27 4c 49 53 54 |..!....5|)".'LIST|
|00001190| 20 31 30 30 2d 27 20 57 | 49 4c 4c 20 4c 49 53 54 | 100-' W|ILL LIST|
|000011a0| 20 41 4c 4c 20 4c 49 4e | 45 53 22 00 d1 21 01 04 | ALL LIN|ES"..!..|
|000011b0| 99 a3 36 29 22 46 52 4f | 4d 20 31 30 30 20 54 4f |..6)"FRO|M 100 TO|
|000011c0| 20 45 4e 44 20 4f 46 20 | 50 52 4f 47 52 41 4d 2e | END OF |PROGRAM.|
|000011d0| 22 00 14 22 02 04 99 a3 | 35 29 22 11 27 4c 49 53 |".."....|5)".'LIS|
|000011e0| 54 20 2d 31 30 30 27 20 | 57 49 4c 4c 20 4c 49 53 |T -100' |WILL LIS|
|000011f0| 54 20 41 4c 4c 20 4c 49 | 4e 45 53 20 20 20 20 20 |T ALL LI|NES     |
|00001200| 20 20 20 20 20 46 52 4f | 4d 20 30 20 54 4f 20 31 |     FRO|M 0 TO 1|
|00001210| 30 30 2e 22 00 1f 22 03 | 04 99 a3 38 29 4b 24 00 |00."..".|...8)K$.|
|00001220| 34 22 04 04 a1 41 24 3a | 8b 20 41 24 b2 22 22 a7 |4"...A$:|. A$."".|
|00001230| 31 30 32 38 00 3c 22 05 | 04 89 39 35 00 57 22 06 |1028.<".|..95.W".|
|00001240| 04 99 c7 28 31 34 37 29 | 3a 99 a3 31 38 29 22 11 |...(147)|:..18)".|
|00001250| 11 11 4c 4f 41 44 22 00 | 92 22 07 04 99 a3 35 29 |..LOAD".|."....5)|
|00001260| 22 11 46 49 4e 44 53 20 | 26 20 52 45 41 44 53 20 |".FINDS |& READS |
|00001270| 50 52 4f 47 52 41 4d 20 | 46 52 4f 4d 20 54 41 50 |PROGRAM |FROM TAP|
|00001280| 45 20 20 20 20 20 20 20 | 20 20 4f 52 20 44 49 53 |E       |  OR DIS|
|00001290| 4b 22 00 d5 22 08 04 99 | a3 35 29 22 11 4c 4f 41 |K".."...|.5)".LOA|
|000012a0| 44 20 20 28 54 48 45 4e | 20 52 45 54 55 52 4e 29 |D  (THEN| RETURN)|
|000012b0| 2d 20 4c 4f 41 44 53 20 | 4e 45 58 54 20 20 20 20 |- LOADS |NEXT    |
|000012c0| 20 20 20 20 20 50 52 4f | 47 52 41 4d 20 4f 4e 20 |     PRO|GRAM ON |
|000012d0| 54 41 50 45 22 00 1d 23 | 09 04 99 a3 35 29 22 11 |TAPE"..#|....5)".|
|000012e0| 4c 4f 41 44 20 22 3b c7 | 28 33 34 29 3b 22 50 52 |LOAD ";.|(34);"PR|
|000012f0| 4f 47 52 41 4d 22 3b c7 | 28 33 34 29 3b 22 2d 4c |OGRAM";.|(34);"-L|
|00001300| 4f 41 44 53 20 50 52 4f | 47 2e 20 46 52 4f 4d 20 |OADS PRO|G. FROM |
|00001310| 20 20 20 20 20 20 20 20 | 54 41 50 45 22 00 5b 23 |        |TAPE".[#|
|00001320| 0a 04 99 a3 35 29 22 11 | 4c 4f 41 44 22 3b c7 28 |....5)".|LOAD";.(|
|00001330| 33 34 29 22 2a 22 3b c7 | 28 33 34 29 3b 22 2d 4c |34)"*";.|(34);"-L|
|00001340| 4f 41 44 53 20 46 49 52 | 53 54 20 50 52 4f 47 52 |OADS FIR|ST PROGR|
|00001350| 41 4d 20 4f 4e 20 44 49 | 53 4b 22 00 a2 23 0b 04 |AM ON DI|SK"..#..|
|00001360| 99 a3 35 29 22 11 4c 4f | 41 44 22 3b c7 28 33 34 |..5)".LO|AD";.(34|
|00001370| 29 22 50 52 4f 47 52 41 | 4d 22 3b c7 28 33 34 29 |)"PROGRA|M";.(34)|
|00001380| 3b 22 20 2d 4c 4f 41 44 | 53 20 22 3b c7 28 33 34 |;" -LOAD|S ";.(34|
|00001390| 29 3b 22 50 52 4f 47 52 | 41 4d 22 3b c7 28 33 34 |);"PROGR|AM";.(34|
|000013a0| 29 3b 00 b8 23 0c 04 99 | 22 46 52 4f 4d 20 20 20 |);..#...|"FROM   |
|000013b0| 20 20 20 44 49 53 4b 22 | 00 c3 23 0d 04 99 a3 38 |   DISK"|..#....8|
|000013c0| 29 4b 24 00 d8 23 0e 04 | a1 20 41 24 3a 8b 41 24 |)K$..#..|. A$:.A$|
|000013d0| b2 22 22 a7 31 30 33 38 | 00 e0 23 0f 04 89 39 35 |."".1038|..#...95|
|000013e0| 00 fa 23 10 04 99 c7 28 | 31 34 37 29 3a 99 a3 31 |..#....(|147):..1|
|000013f0| 38 29 22 11 11 11 4e 45 | 57 22 00 3d 24 11 04 99 |8)"...NE|W".=$...|
|00001400| a3 35 29 22 11 54 48 45 | 20 4e 45 57 20 43 4f 4d |.5)".THE| NEW COM|
|00001410| 4d 41 4e 44 20 57 49 4c | 4c 20 44 45 4c 45 54 45 |MAND WIL|L DELETE|
|00001420| 20 54 48 45 20 20 20 20 | 20 20 20 20 20 50 52 4f | THE    |     PRO|
|00001430| 47 2e 20 49 4e 20 4d 45 | 4d 4f 52 59 22 00 68 24 |G. IN ME|MORY".h$|
|00001440| 12 04 99 a3 35 29 22 11 | 4e 45 57 20 2d 20 57 49 |....5)".|NEW - WI|
|00001450| 4c 4c 20 43 4c 45 41 52 | 20 41 4c 4c 20 56 41 52 |LL CLEAR| ALL VAR|
|00001460| 49 41 42 4c 45 53 2e 22 | 00 af 24 13 04 99 a3 35 |IABLES."|..$....5|
|00001470| 29 22 11 4e 45 57 20 2d | 20 53 48 4f 55 4c 44 20 |)".NEW -| SHOULD |
|00001480| 42 45 20 55 53 45 44 20 | 42 45 46 4f 52 45 20 54 |BE USED |BEFORE T|
|00001490| 59 50 49 4e 47 20 20 20 | 20 20 20 49 4e 20 41 4e |YPING   |   IN AN|
|000014a0| 59 20 4e 45 57 20 50 52 | 4f 47 52 41 4d 2e 22 00 |Y NEW PR|OGRAM.".|
|000014b0| f9 24 14 04 99 a3 35 29 | 22 11 4e 45 57 20 43 41 |.$....5)|".NEW CA|
|000014c0| 4e 20 42 45 20 55 53 45 | 44 20 49 4e 20 41 20 50 |N BE USE|D IN A P|
|000014d0| 52 4f 47 52 41 4d 20 42 | 55 54 20 20 20 20 20 20 |ROGRAM B|UT      |
|000014e0| 20 20 57 49 4c 4c 20 45 | 52 41 53 45 20 41 4c 4c |  WILL E|RASE ALL|
|000014f0| 20 42 45 46 4f 52 45 2e | 22 00 04 25 17 04 99 a3 | BEFORE.|"..%....|
|00001500| 38 29 4b 24 00 19 25 18 | 04 a1 20 41 24 3a 8b 41 |8)K$..%.|.. A$:.A|
|00001510| 24 b2 22 22 a7 31 30 34 | 38 00 21 25 19 04 89 39 |$."".104|8.!%...9|
|00001520| 35 00 3b 25 1a 04 99 c7 | 28 31 34 37 29 3a 99 a3 |5.;%....|(147):..|
|00001530| 31 38 29 22 11 11 11 52 | 55 4e 22 00 83 25 1b 04 |18)"...R|UN"..%..|
|00001540| 99 a3 35 29 22 11 52 55 | 4e 20 57 49 4c 4c 20 53 |..5)".RU|N WILL S|
|00001550| 54 41 52 54 20 54 48 45 | 20 50 52 4f 47 52 41 4d |TART THE| PROGRAM|
|00001560| 20 49 4e 20 4d 45 4d 2d | 20 20 20 20 20 20 4f 52 | IN MEM-|      OR|
|00001570| 59 3a 43 4c 45 41 52 53 | 20 56 41 52 49 41 42 4c |Y:CLEARS| VARIABL|
|00001580| 45 53 22 00 bf 25 1c 04 | 99 a3 35 29 22 52 55 4e |ES"..%..|..5)"RUN|
|00001590| 20 31 30 30 20 50 45 52 | 46 4f 52 4d 53 20 43 4c | 100 PER|FORMS CL|
|000015a0| 52 20 41 4e 44 20 53 54 | 41 52 54 53 20 41 54 20 |R AND ST|ARTS AT |
|000015b0| 20 20 20 20 20 4c 49 4e | 45 20 31 30 30 2e 22 00 |     LIN|E 100.".|
|000015c0| 09 26 1d 04 99 a3 35 29 | 22 11 52 55 4e 20 4d 41 |.&....5)|".RUN MA|
|000015d0| 59 20 41 4c 53 4f 20 42 | 45 20 55 53 45 44 20 49 |Y ALSO B|E USED I|
|000015e0| 4e 20 50 52 4f 47 52 41 | 4d 20 20 20 20 20 20 20 |N PROGRA|M       |
|000015f0| 20 20 4d 4f 44 45 2e 20 | 53 54 41 52 54 53 20 41 |  MODE. |STARTS A|
|00001600| 54 20 46 49 52 53 54 22 | 3b 00 3a 26 1e 04 99 22 |T FIRST"|;.:&..."|
|00001610| 20 4c 49 4e 45 20 57 49 | 54 48 20 20 20 20 20 20 | LINE WI|TH      |
|00001620| 20 20 20 41 4c 4c 20 56 | 41 52 49 41 42 4c 45 53 |   ALL V|ARIABLES|
|00001630| 20 43 4c 45 41 52 45 44 | 2e 22 00 45 26 21 04 99 | CLEARED|.".E&!..|
|00001640| a3 38 29 4b 24 00 5a 26 | 22 04 a1 41 24 3a 8b 20 |.8)K$.Z&|"..A$:. |
|00001650| 41 24 b2 22 22 a7 31 30 | 35 38 00 62 26 23 04 89 |A$."".10|58.b&#..|
|00001660| 39 35 00 7d 26 24 04 99 | c7 28 31 34 37 29 3a 99 |95.}&$..|.(147):.|
|00001670| a3 31 37 29 22 11 11 11 | 53 41 56 45 22 00 bd 26 |.17)"...|SAVE"..&|
|00001680| 25 04 99 a3 35 29 22 11 | 54 48 45 20 53 41 56 45 |%...5)".|THE SAVE|
|00001690| 20 53 54 41 54 45 4d 45 | 4e 54 20 57 52 49 54 45 | STATEME|NT WRITE|
|000016a0| 53 20 41 20 43 4f 50 59 | 20 4f 46 20 20 20 20 20 |S A COPY| OF     |
|000016b0| 54 48 45 20 43 55 52 52 | 45 4e 54 22 3b 00 04 27 |THE CURR|ENT";..'|
|000016c0| 26 04 99 22 20 50 52 4f | 47 52 41 4d 20 46 52 4f |&.." PRO|GRAM FRO|
|000016d0| 4d 20 4d 45 4d 4f 52 59 | 20 54 4f 20 20 20 20 20 |M MEMORY| TO     |
|000016e0| 20 45 58 54 45 52 4e 41 | 4c 20 44 45 56 49 43 45 | EXTERNA|L DEVICE|
|000016f0| 20 28 43 41 53 53 45 54 | 54 45 20 4f 52 20 44 49 | (CASSET|TE OR DI|
|00001700| 53 4b 29 22 00 44 27 27 | 04 99 a3 35 29 22 11 53 |SK)".D''|...5)".S|
|00001710| 41 56 45 20 28 26 20 52 | 45 54 55 52 4e 29 20 57 |AVE (& R|ETURN) W|
|00001720| 52 49 54 45 53 20 54 4f | 20 54 41 50 45 20 20 20 |RITES TO| TAPE   |
|00001730| 20 20 20 20 20 20 20 57 | 49 54 48 4f 55 54 20 4e |       W|ITHOUT N|
|00001740| 41 4d 45 22 00 80 27 28 | 04 99 a3 35 29 22 11 53 |AME"..'(|...5)".S|
|00001750| 41 56 45 20 22 3b c7 28 | 33 34 29 3b 22 44 4f 47 |AVE ";.(|34);"DOG|
|00001760| 22 3b c7 28 33 34 29 3b | 22 2c 31 20 53 41 56 45 |";.(34);|",1 SAVE|
|00001770| 53 20 27 44 4f 47 27 20 | 4f 4e 20 54 41 50 45 22 |S 'DOG' |ON TAPE"|
|00001780| 00 b7 27 29 04 99 a3 35 | 29 22 11 53 41 56 45 20 |..')...5|)".SAVE |
|00001790| 22 3b c7 28 33 34 29 3b | 22 44 4f 47 22 3b c7 28 |";.(34);|"DOG";.(|
|000017a0| 33 34 29 3b 22 2c 38 20 | 53 41 56 45 53 20 50 52 |34);",8 |SAVES PR|
|000017b0| 4f 47 52 41 4d 22 3b 00 | d5 27 2a 04 99 22 20 27 |OGRAM";.|.'*.." '|
|000017c0| 44 4f 47 27 20 20 20 20 | 20 20 20 20 4f 4e 20 44 |DOG'    |    ON D|
|000017d0| 49 53 4b 2e 22 00 dd 27 | 2b 04 99 4b 24 00 f3 27 |ISK."..'|+..K$..'|
|000017e0| 2c 04 a1 20 41 24 3a 8b | 20 41 24 b2 22 22 a7 31 |,.. A$:.| A$."".1|
|000017f0| 30 36 38 00 fb 27 2d 04 | 89 39 35 00 18 28 2e 04 |068..'-.|.95..(..|
|00001800| 99 c7 28 31 34 37 29 3a | 99 a3 31 36 29 22 11 11 |..(147):|..16)"..|
|00001810| 11 56 45 52 49 46 59 22 | 00 62 28 2f 04 99 a3 35 |.VERIFY"|.b(/...5|
|00001820| 29 22 11 43 4f 4d 50 41 | 52 45 53 20 50 52 4f 47 |)".COMPA|RES PROG|
|00001830| 52 41 4d 20 49 4e 20 4d | 45 4d 4f 52 59 20 57 49 |RAM IN M|EMORY WI|
|00001840| 54 48 20 20 20 20 20 20 | 20 20 20 50 52 4f 47 2e |TH      |   PROG.|
|00001850| 20 4f 4e 20 44 49 53 4b | 20 4f 52 20 54 41 50 45 | ON DISK| OR TAPE|
|00001860| 2e 22 00 a4 28 30 04 99 | a3 35 29 22 11 56 45 52 |."..(0..|.5)".VER|
|00001870| 49 46 59 20 56 45 52 49 | 46 49 45 53 20 4e 45 58 |IFY VERI|FIES NEX|
|00001880| 54 20 50 52 4f 47 52 41 | 4d 20 20 20 20 20 20 20 |T PROGRA|M       |
|00001890| 20 20 20 20 20 46 4f 55 | 4e 44 20 4f 4e 20 54 41 |     FOU|ND ON TA|
|000018a0| 50 45 2e 22 00 e3 28 31 | 04 99 a3 35 29 22 11 56 |PE."..(1|...5)".V|
|000018b0| 45 52 49 46 59 20 22 3b | c7 28 33 34 29 3b 22 44 |ERIFY ";|.(34);"D|
|000018c0| 4f 47 22 3b c7 28 33 34 | 29 3b 22 20 20 56 45 52 |OG";.(34|);"  VER|
|000018d0| 49 46 49 45 53 20 50 52 | 4f 47 2e 20 27 44 4f 47 |IFIES PR|OG. 'DOG|
|000018e0| 27 22 3b 00 f9 28 32 04 | 99 22 20 20 20 20 20 20 |'";..(2.|."      |
|000018f0| 4f 4e 20 54 41 50 45 2e | 22 00 37 29 33 04 99 a3 |ON TAPE.|".7)3...|
|00001900| 35 29 22 11 56 45 52 49 | 46 59 22 3b c7 28 33 34 |5)".VERI|FY";.(34|
|00001910| 29 3b 22 43 41 54 22 3b | c7 28 33 34 29 3b 22 2c |);"CAT";|.(34);",|
|00001920| 38 20 56 45 52 49 46 49 | 45 53 20 50 52 4f 47 2e |8 VERIFI|ES PROG.|
|00001930| 20 27 43 41 54 27 22 00 | 4a 29 34 04 99 a3 35 29 | 'CAT'".|J)4...5)|
|00001940| 22 4f 4e 20 44 49 53 4b | 2e 22 00 55 29 35 04 99 |"ON DISK|.".U)5..|
|00001950| a3 38 29 4b 24 00 6a 29 | 36 04 a1 20 41 24 3a 8b |.8)K$.j)|6.. A$:.|
|00001960| 41 24 b2 22 22 a7 31 30 | 37 38 00 72 29 37 04 89 |A$."".10|78.r)7..|
|00001970| 39 35 00 8c 29 da 07 99 | c7 28 31 34 37 29 3a 99 |95..)...|.(147):.|
|00001980| a3 31 38 29 22 11 11 11 | 45 4e 44 22 00 ba 29 db |.18)"...|END"..).|
|00001990| 07 99 a3 33 29 22 11 45 | 4e 44 53 20 45 58 45 43 |...3)".E|NDS EXEC|
|000019a0| 55 54 49 4f 4e 20 4f 46 | 20 43 55 52 52 45 4e 54 |UTION OF| CURRENT|
|000019b0| 20 50 52 4f 47 52 41 4d | 2e 22 00 01 2a dc 07 99 | PROGRAM|."..*...|
|000019c0| a3 33 29 22 11 45 4e 44 | 20 26 20 53 54 4f 50 20 |.3)".END| & STOP |
|000019d0| 53 54 41 54 45 4d 45 4e | 54 53 20 48 41 4c 54 20 |STATEMEN|TS HALT |
|000019e0| 50 52 4f 47 52 41 4d 20 | 20 20 20 20 20 45 58 45 |PROGRAM |     EXE|
|000019f0| 43 55 54 49 4f 4e 2e 20 | 59 4f 55 20 43 41 4e 22 |CUTION. |YOU CAN"|
|00001a00| 3b 00 21 2a dd 07 99 a3 | 33 29 22 20 43 4f 4e 54 |;.!*....|3)" CONT|
|00001a10| 49 4e 55 45 20 42 59 20 | 54 59 50 49 4e 47 20 22 |INUE BY |TYPING "|
|00001a20| 3b 00 69 2a de 07 99 a3 | 33 29 22 43 4f 4e 54 2e |;.i*....|3)"CONT.|
|00001a30| 20 59 4f 55 20 44 4f 20 | 4e 4f 54 20 48 41 56 45 | YOU DO |NOT HAVE|
|00001a40| 20 54 4f 20 55 53 45 20 | 45 4e 44 20 4f 52 20 20 | TO USE |END OR  |
|00001a50| 20 20 20 53 54 4f 50 20 | 53 54 41 54 45 4d 45 4e |   STOP |STATEMEN|
|00001a60| 54 53 2c 20 42 55 54 22 | 3b 00 a1 2a df 07 99 22 |TS, BUT"|;..*..."|
|00001a70| 20 54 48 45 53 45 20 53 | 54 41 54 45 4d 45 4e 54 | THESE S|TATEMENT|
|00001a80| 53 20 20 20 4d 41 4b 45 | 20 50 52 4f 47 52 41 4d |S   MAKE| PROGRAM|
|00001a90| 53 20 45 41 53 49 45 52 | 20 54 4f 20 55 53 45 2e |S EASIER| TO USE.|
|00001aa0| 22 00 e8 2a e0 07 99 a3 | 33 29 22 11 45 4e 44 20 |"..*....|3)".END |
|00001ab0| 46 49 4e 49 53 48 45 53 | 20 41 20 50 52 4f 47 52 |FINISHES| A PROGR|
|00001ac0| 41 4d 20 45 58 45 43 55 | 54 49 4f 4e 20 41 4e 44 |AM EXECU|TION AND|
|00001ad0| 20 20 20 20 44 49 53 50 | 4c 41 59 53 20 54 48 45 |    DISP|LAYS THE|
|00001ae0| 20 52 45 41 44 59 22 3b | 00 2a 2b e1 07 99 22 20 | READY";|.*+..." |
|00001af0| 4d 45 53 53 41 47 45 20 | 41 4e 44 20 47 49 56 45 |MESSAGE |AND GIVE|
|00001b00| 53 20 20 20 20 43 4f 4e | 54 52 4f 4c 20 42 41 43 |S    CON|TROL BAC|
|00001b10| 4b 20 54 4f 20 54 48 45 | 20 4f 50 45 52 41 54 4f |K TO THE| OPERATO|
|00001b20| 52 2e 22 3a 99 a3 38 29 | 4b 24 00 3f 2b e2 07 a1 |R.":..8)|K$.?+...|
|00001b30| 20 41 24 3a 8b 41 24 b2 | 22 22 a7 32 30 31 38 00 | A$:.A$.|"".2018.|
|00001b40| 48 2b e3 07 89 32 30 30 | 00 89 2b e4 07 99 22 93 |H+...200|..+...".|
|00001b50| 22 3a 99 a3 31 35 29 22 | 11 46 4f 52 2e 4e 45 58 |":..15)"|.FOR.NEX|
|00001b60| 54 11 11 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |T.......|........|
|00001b70| 9d 9d 9d 9d 9d 9d 9d 57 | 49 4c 4c 20 52 45 50 45 |.......W|ILL REPE|
|00001b80| 41 54 20 20 54 48 45 22 | 3b 00 cd 2b e5 07 99 22 |AT  THE"|;..+..."|
|00001b90| 20 53 54 41 54 45 4d 45 | 4e 54 53 20 42 45 54 57 | STATEME|NTS BETW|
|00001ba0| 45 45 4e 20 20 20 20 20 | 54 48 45 20 46 4f 52 20 |EEN     |THE FOR |
|00001bb0| 41 4e 44 20 4e 45 58 54 | 20 41 53 20 4c 4f 4e 47 |AND NEXT| AS LONG|
|00001bc0| 20 41 53 20 56 41 52 49 | 41 42 4c 45 22 00 15 2c | AS VARI|ABLE"..,|
|00001bd0| e6 07 99 a3 33 29 22 49 | 53 20 4c 45 53 53 20 54 |....3)"I|S LESS T|
|00001be0| 48 41 4e 20 4f 52 20 45 | 51 55 41 4c 20 54 4f 20 |HAN OR E|QUAL TO |
|00001bf0| 45 4e 44 20 43 4f 53 54 | 41 4e 54 2e 11 20 20 20 |END COST|ANT..   |
|00001c00| 54 48 49 53 20 53 54 41 | 54 45 4d 45 4e 54 20 4c |THIS STA|TEMENT L|
|00001c10| 45 54 53 22 3b 00 5f 2c | e7 07 99 22 20 59 4f 55 |ETS";._,|..." YOU|
|00001c20| 20 55 53 45 20 41 20 56 | 41 52 49 2d 20 20 20 20 | USE A V|ARI-    |
|00001c30| 20 41 42 4c 45 20 41 53 | 20 41 20 43 4f 55 4e 54 | ABLE AS| A COUNT|
|00001c40| 45 52 2e 20 59 4f 55 20 | 4d 55 53 54 20 53 50 45 |ER. YOU |MUST SPE|
|00001c50| 43 49 46 59 20 20 20 20 | 20 54 48 45 20 22 3b 00 |CIFY    | THE ";.|
|00001c60| ad 2c e8 07 99 22 4e 41 | 4d 45 20 4f 46 20 54 48 |.,..."NA|ME OF TH|
|00001c70| 45 20 56 41 52 49 41 42 | 4c 45 2c 20 54 48 45 20 |E VARIAB|LE, THE |
|00001c80| 53 54 41 52 54 2d 20 20 | 20 20 49 4e 47 20 56 41 |START-  |  ING VA|
|00001c90| 4c 55 45 2c 20 54 48 45 | 20 45 4e 44 20 56 41 4c |LUE, THE| END VAL|
|00001ca0| 55 45 20 41 4e 44 20 53 | 54 45 50 2e 22 00 f3 2c |UE AND S|TEP."..,|
|00001cb0| e9 07 99 a3 33 29 22 11 | 49 46 20 53 54 45 50 20 |....3)".|IF STEP |
|00001cc0| 49 53 20 4f 4d 49 54 54 | 45 44 20 41 20 53 54 45 |IS OMITT|ED A STE|
|00001cd0| 50 20 4f 46 20 31 20 49 | 53 20 20 20 20 20 20 20 |P OF 1 I|S       |
|00001ce0| 41 53 53 55 4d 45 44 2e | 11 1d 1d 45 58 41 4d 50 |ASSUMED.|...EXAMP|
|00001cf0| 4c 45 22 00 2a 2d ea 07 | 99 a3 31 30 29 22 11 31 |LE".*-..|..10)".1|
|00001d00| 30 20 46 4f 52 20 41 3d | 31 20 54 4f 20 31 30 11 |0 FOR A=|1 TO 10.|
|00001d10| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |........|........|
|00001d20| 32 30 20 4e 45 58 54 20 | 41 22 00 35 2d eb 07 99 |20 NEXT |A".5-...|
|00001d30| a3 38 29 4b 24 00 4a 2d | ec 07 a1 20 41 24 3a 8b |.8)K$.J-|... A$:.|
|00001d40| 41 24 b2 22 22 a7 32 30 | 32 38 00 53 2d ed 07 89 |A$."".20|28.S-...|
|00001d50| 32 30 30 00 76 2d ee 07 | 99 22 93 22 3a 99 a3 31 |200.v-..|.".":..1|
|00001d60| 32 29 22 11 11 11 47 4f | 53 55 42 2e 2e 2e 52 45 |2)"...GO|SUB...RE|
|00001d70| 54 55 52 4e 11 22 00 bd | 2d ef 07 99 a3 33 29 22 |TURN."..|-....3)"|
|00001d80| 11 54 52 41 4e 53 46 45 | 52 53 20 45 58 45 43 55 |.TRANSFE|RS EXECU|
|00001d90| 54 49 4f 4e 20 54 4f 20 | 54 48 45 20 4c 49 4e 45 |TION TO |THE LINE|
|00001da0| 20 49 4e 44 49 2d 20 20 | 20 43 41 54 45 44 20 41 | INDI-  | CATED A|
|00001db0| 46 54 45 52 20 47 4f 53 | 55 42 2e 22 3b 00 08 2e |FTER GOS|UB.";...|
|00001dc0| f0 07 99 22 20 55 50 4f | 4e 20 52 45 41 43 48 49 |..." UPO|N REACHI|
|00001dd0| 4e 47 20 41 20 20 20 20 | 20 20 52 45 54 55 52 4e |NG A    |  RETURN|
|00001de0| 20 53 54 41 54 4d 45 4e | 54 20 49 54 20 54 52 41 | STATMEN|T IT TRA|
|00001df0| 4e 53 46 45 52 53 20 42 | 41 43 4b 20 54 4f 20 20 |NSFERS B|ACK TO  |
|00001e00| 20 20 4e 45 58 54 22 3b | 00 31 2e f1 07 99 22 20 |  NEXT";|.1...." |
|00001e10| 4c 49 4e 45 20 41 46 54 | 45 52 20 54 48 45 20 47 |LINE AFT|ER THE G|
|00001e20| 4f 53 55 42 20 53 54 41 | 54 45 4d 45 4e 54 2e 11 |OSUB STA|TEMENT..|
|00001e30| 22 00 79 2e f2 07 99 a3 | 33 29 22 54 48 45 20 49 |".y.....|3)"THE I|
|00001e40| 4e 44 49 43 41 54 45 44 | 20 4c 49 4e 45 20 49 53 |NDICATED| LINE IS|
|00001e50| 20 55 53 55 41 4c 59 20 | 41 20 53 55 42 2d 20 20 | USUALY |A SUB-  |
|00001e60| 20 20 20 52 4f 55 54 49 | 4e 45 20 45 4e 54 52 59 |   ROUTI|NE ENTRY|
|00001e70| 20 50 4f 49 4e 54 2e 11 | 22 00 c2 2e f3 07 99 a3 | POINT..|".......|
|00001e80| 33 29 22 47 4f 53 55 42 | 20 49 53 20 53 49 4d 49 |3)"GOSUB| IS SIMI|
|00001e90| 4c 41 52 20 54 4f 20 47 | 4f 54 4f 2c 20 45 58 43 |LAR TO G|OTO, EXC|
|00001ea0| 45 50 54 20 54 48 41 54 | 20 20 20 57 48 45 4e 20 |EPT THAT|   WHEN |
|00001eb0| 52 45 54 55 52 4e 20 53 | 54 41 54 45 4d 45 4e 54 |RETURN S|TATEMENT|
|00001ec0| 22 3b 00 02 2f f4 07 99 | 22 20 49 53 20 52 45 41 |";../...|" IS REA|
|00001ed0| 43 48 45 44 2c 20 20 20 | 20 20 20 20 50 52 4f 47 |CHED,   |    PROG|
|00001ee0| 52 41 4d 20 47 4f 45 53 | 20 42 41 43 4b 20 54 4f |RAM GOES| BACK TO|
|00001ef0| 20 4c 49 4e 45 20 41 46 | 54 45 52 20 47 4f 53 55 | LINE AF|TER GOSU|
|00001f00| 42 22 00 0d 2f f5 07 99 | a3 38 29 4b 24 00 21 2f |B"../...|.8)K$.!/|
|00001f10| f6 07 a1 41 24 3a 8b 41 | 24 b2 22 22 a7 32 30 33 |...A$:.A|$."".203|
|00001f20| 38 00 2a 2f f7 07 89 32 | 30 30 00 69 2f f8 07 99 |8.*/...2|00.i/...|
|00001f30| 22 93 22 3a 99 a3 31 35 | 29 22 11 49 46 2e 2e 2e |".":..15|)".IF...|
|00001f40| 54 48 45 4e 11 11 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |THEN....|........|
|00001f50| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 41 4c 4c 4f 57 |........|...ALLOW|
|00001f60| 53 20 42 41 53 49 43 22 | 3b 00 a5 2f f9 07 99 22 |S BASIC"|;../..."|
|00001f70| 20 50 52 4f 47 52 41 4d | 20 54 4f 20 45 58 45 43 | PROGRAM| TO EXEC|
|00001f80| 55 54 45 20 4c 49 4e 45 | 53 20 20 20 4f 55 54 20 |UTE LINE|S   OUT |
|00001f90| 4f 46 20 4e 55 4d 45 52 | 49 43 41 4c 20 4f 52 44 |OF NUMER|ICAL ORD|
|00001fa0| 45 52 2e 11 22 00 e5 2f | fa 07 99 a3 33 29 22 49 |ER.."../|....3)"I|
|00001fb0| 46 20 41 4e 20 45 58 50 | 52 45 53 53 49 4f 4e 20 |F AN EXP|RESSION |
|00001fc0| 49 53 20 54 52 55 45 2c | 54 48 45 4e 20 45 58 45 |IS TRUE,|THEN EXE|
|00001fd0| 43 55 54 45 20 20 20 53 | 54 41 54 45 4d 45 4e 54 |CUTE   S|TATEMENT|
|00001fe0| 28 53 29 22 3b 00 1c 30 | fb 07 99 22 20 28 4f 52 |(S)";..0|..." (OR|
|00001ff0| 20 47 4f 54 4f 20 4c 49 | 4e 45 29 3b 4f 54 48 45 | GOTO LI|NE);OTHE|
|00002000| 52 57 49 53 45 20 20 20 | 45 58 45 43 55 54 45 20 |RWISE   |EXECUTE |
|00002010| 4e 45 58 54 20 4c 49 4e | 45 2e 11 22 00 60 30 fc |NEXT LIN|E..".`0.|
|00002020| 07 99 a3 33 29 22 49 46 | 20 53 50 45 43 49 46 49 |...3)"IF| SPECIFI|
|00002030| 45 44 20 43 4f 4e 44 49 | 54 49 4f 4e 20 49 53 20 |ED CONDI|TION IS |
|00002040| 54 52 55 45 2c 20 54 48 | 45 4e 20 20 20 20 54 48 |TRUE, TH|EN    TH|
|00002050| 45 20 53 54 41 54 45 4d | 45 4e 54 28 53 29 22 3b |E STATEM|ENT(S)";|
|00002060| 00 a6 30 fd 07 99 22 20 | 46 4f 4c 4c 4f 57 49 4e |..0..." |FOLLOWIN|
|00002070| 47 20 27 54 48 45 4e 27 | 20 41 52 45 20 20 20 45 |G 'THEN'| ARE   E|
|00002080| 58 45 43 55 54 45 44 2e | 20 49 46 20 43 4f 4e 44 |XECUTED.| IF COND|
|00002090| 49 54 49 4f 4e 20 49 53 | 20 46 41 4c 53 45 2c 20 |ITION IS| FALSE, |
|000020a0| 43 4f 4e 2d 22 3b 00 e6 | 30 fe 07 99 a3 33 29 22 |CON-";..|0....3)"|
|000020b0| 54 52 4f 4c 20 50 41 53 | 53 45 53 20 54 4f 20 54 |TROL PAS|SES TO T|
|000020c0| 48 45 20 4e 45 58 54 20 | 4c 49 4e 45 20 41 4e 44 |HE NEXT |LINE AND|
|000020d0| 20 20 20 20 20 20 20 20 | 53 54 41 54 45 4d 45 4e |        |STATEMEN|
|000020e0| 54 28 53 29 22 3b 00 2d | 31 ff 07 99 22 46 4f 4c |T(S)";.-|1..."FOL|
|000020f0| 4c 4f 57 49 4e 47 20 27 | 54 48 45 4e 27 20 41 52 |LOWING '|THEN' AR|
|00002100| 45 20 4e 4f 54 20 20 20 | 20 45 58 45 43 55 54 45 |E NOT   | EXECUTE|
|00002110| 44 2e 22 3a 99 a3 31 33 | 29 22 11 31 30 20 49 46 |D.":..13|)".10 IF|
|00002120| 20 41 3d 31 20 54 48 45 | 4e 20 35 30 22 00 38 31 | A=1 THE|N 50".81|
|00002130| 00 08 99 a3 38 29 4b 24 | 00 4c 31 01 08 a1 41 24 |....8)K$|.L1...A$|
|00002140| 3a 8b 41 24 b2 22 22 a7 | 32 30 34 39 00 55 31 02 |:.A$."".|2049.U1.|
|00002150| 08 89 32 30 30 00 a0 31 | 03 08 99 22 93 22 3a 99 |..200..1|...".":.|
|00002160| a3 31 38 29 22 11 11 11 | 47 4f 54 4f 11 11 9d 9d |.18)"...|GOTO....|
|00002170| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |........|........|
|00002180| 9d 43 41 4e 20 42 45 20 | 55 53 45 44 20 54 4f 20 |.CAN BE |USED TO |
|00002190| 53 54 4f 50 20 41 20 50 | 52 4f 47 52 41 4d 22 3b |STOP A P|ROGRAM";|
|000021a0| 00 d4 31 04 08 99 22 20 | 53 55 43 48 20 41 53 22 |..1..." |SUCH AS"|
|000021b0| 3a 99 a3 31 35 29 22 35 | 30 20 47 4f 54 4f 20 35 |:..15)"5|0 GOTO 5|
|000021c0| 30 22 3a 99 a3 33 29 22 | 11 47 4f 54 4f 20 57 49 |0":..3)"|.GOTO WI|
|000021d0| 4c 4c 22 3b 00 18 32 05 | 08 99 22 20 55 4e 43 4f |LL";..2.|.." UNCO|
|000021e0| 4e 44 49 54 49 4f 4e 41 | 4c 4c 59 20 54 52 41 4e |NDITIONA|LLY TRAN|
|000021f0| 53 46 45 52 20 20 20 20 | 20 20 45 58 45 43 55 54 |SFER    |  EXECUT|
|00002200| 49 4f 4e 20 54 4f 20 4c | 49 4e 45 20 49 4e 44 49 |ION TO L|INE INDI|
|00002210| 43 41 54 45 44 2e 11 22 | 00 62 32 06 08 99 a3 33 |CATED.."|.b2....3|
|00002220| 29 22 49 54 20 41 4c 4c | 4f 57 53 20 41 20 50 52 |)"IT ALL|OWS A PR|
|00002230| 4f 47 52 41 4d 20 54 4f | 20 45 58 45 43 55 54 45 |OGRAM TO| EXECUTE|
|00002240| 20 4c 49 4e 45 53 20 20 | 20 20 4f 55 54 20 4f 46 | LINES  |  OUT OF|
|00002250| 20 4e 55 4d 45 52 49 43 | 41 4c 20 4f 52 44 45 52 | NUMERIC|AL ORDER|
|00002260| 2e 22 00 83 32 07 08 99 | a3 31 30 29 22 11 45 58 |."..2...|.10)".EX|
|00002270| 41 4d 50 4c 45 3a 20 31 | 30 30 20 47 4f 54 4f 20 |AMPLE: 1|00 GOTO |
|00002280| 33 30 30 00 8e 32 09 08 | 99 a3 38 29 4b 24 00 a3 |300..2..|..8)K$..|
|00002290| 32 0a 08 a1 20 41 24 3a | 8b 41 24 b2 22 22 a7 32 |2... A$:|.A$."".2|
|000022a0| 30 35 38 00 ac 32 0b 08 | 89 32 30 30 00 ef 32 0c |058..2..|.200..2.|
|000022b0| 08 99 22 93 22 3a 99 a3 | 31 36 29 22 11 11 11 4f |..".":..|16)"...O|
|000022c0| 4e 2e 2e 47 4f 54 4f 11 | 22 3a 99 a3 33 29 22 43 |N..GOTO.|":..3)"C|
|000022d0| 41 55 53 45 53 20 41 4e | 20 55 4e 43 4f 4e 44 49 |AUSES AN| UNCONDI|
|000022e0| 54 49 4f 4e 41 4c 20 42 | 52 41 4e 43 48 22 3b 00 |TIONAL B|RANCH";.|
|000022f0| 3a 33 0d 08 99 22 20 54 | 4f 20 4f 4e 45 20 20 20 |:3..." T|O ONE   |
|00002300| 4f 46 20 53 45 56 45 52 | 41 4c 20 50 4f 49 4e 54 |OF SEVER|AL POINT|
|00002310| 53 20 49 4e 20 50 52 4f | 47 52 41 4d 2c 20 44 45 |S IN PRO|GRAM, DE|
|00002320| 50 45 4e 44 2d 20 20 20 | 49 4e 47 20 4f 4e 20 54 |PEND-   |ING ON T|
|00002330| 48 45 20 56 41 4c 55 45 | 22 3b 00 7e 33 0e 08 99 |HE VALUE|";.~3...|
|00002340| 22 20 4f 46 20 41 20 56 | 41 52 49 41 42 4c 45 2e |" OF A V|ARIABLE.|
|00002350| 11 22 3a 99 a3 33 29 22 | 46 4f 52 20 45 58 41 4d |.":..3)"|FOR EXAM|
|00002360| 50 4c 45 2d 20 49 46 20 | 56 41 4c 55 45 20 49 53 |PLE- IF |VALUE IS|
|00002370| 20 32 2c 20 4f 4e 2e 2e | 47 4f 54 4f 22 3b 00 aa | 2, ON..|GOTO";..|
|00002380| 33 0f 08 99 22 20 20 20 | 20 57 49 4c 4c 20 47 4f |3..."   | WILL GO|
|00002390| 54 4f 20 32 20 4e 44 20 | 4c 49 4e 45 20 49 4e 20 |TO 2 ND |LINE IN |
|000023a0| 54 48 45 20 4c 49 53 54 | 2e 22 00 ef 33 10 08 99 |THE LIST|."..3...|
|000023b0| a3 33 29 22 11 49 46 20 | 56 41 4c 55 45 20 49 46 |.3)".IF |VALUE IF|
|000023c0| 20 56 41 52 49 41 42 4c | 45 20 49 53 20 30 20 4f | VARIABL|E IS 0 O|
|000023d0| 52 20 3e 20 4e 55 4d 42 | 45 52 20 20 20 4f 46 20 |R > NUMB|ER   OF |
|000023e0| 49 54 45 4d 53 20 49 4e | 20 4c 49 53 54 22 3b 00 |ITEMS IN| LIST";.|
|000023f0| 33 34 11 08 99 22 2c 20 | 54 48 45 20 50 52 4f 47 |34...", |THE PROG|
|00002400| 52 41 4d 20 49 47 2d 20 | 20 20 20 20 20 20 4e 4f |RAM IG- |      NO|
|00002410| 52 45 53 20 54 48 45 20 | 53 54 41 54 45 4d 45 4e |RES THE |STATEMEN|
|00002420| 54 20 41 4e 44 20 47 4f | 45 53 20 54 4f 20 4e 45 |T AND GO|ES TO NE|
|00002430| 58 54 22 00 43 34 12 08 | 99 a3 33 29 22 4c 49 4e |XT".C4..|..3)"LIN|
|00002440| 45 2e 22 00 4e 34 13 08 | 99 a3 38 29 4b 24 00 63 |E.".N4..|..8)K$.c|
|00002450| 34 14 08 a1 20 41 24 3a | 8b 41 24 b2 22 22 a7 32 |4... A$:|.A$."".2|
|00002460| 30 36 38 00 6d 34 15 08 | 89 20 32 30 30 00 aa 34 |068.m4..|. 200..4|
|00002470| 16 08 99 22 93 22 3a 3a | 99 a3 31 36 29 22 11 4f |..."."::|..16)".O|
|00002480| 4e 2e 2e 47 4f 53 55 42 | 22 3a 99 a3 33 29 22 11 |N..GOSUB|":..3)".|
|00002490| 54 48 45 20 4f 4e 2e 2e | 47 4f 53 55 42 20 53 54 |THE ON..|GOSUB ST|
|000024a0| 41 54 45 4d 45 4e 54 20 | 22 3b 00 f4 34 17 08 99 |ATEMENT |";..4...|
|000024b0| 22 48 41 53 20 54 48 45 | 20 53 41 4d 45 20 20 20 |"HAS THE| SAME   |
|000024c0| 20 46 4f 52 4d 41 54 20 | 41 53 20 4f 4e 2e 2e 47 | FORMAT |AS ON..G|
|000024d0| 4f 54 4f 2e 20 44 45 50 | 45 4e 44 49 4e 47 20 4f |OTO. DEP|ENDING O|
|000024e0| 4e 20 54 48 45 20 20 20 | 20 56 41 4c 55 45 20 4f |N THE   | VALUE O|
|000024f0| 46 20 22 3b 00 3e 35 18 | 08 99 22 41 20 56 41 52 |F ";.>5.|.."A VAR|
|00002500| 49 41 42 4c 45 20 54 48 | 45 20 50 52 4f 47 52 41 |IABLE TH|E PROGRA|
|00002510| 4d 20 20 20 20 20 20 20 | 20 20 42 52 41 4e 43 48 |M       |  BRANCH|
|00002520| 45 53 20 54 4f 20 53 55 | 42 52 4f 55 54 49 4e 45 |ES TO SU|BROUTINE|
|00002530| 2e 22 3a 99 a3 38 29 22 | 11 31 30 20 22 3b 00 86 |.":..8)"|.10 ";..|
|00002540| 35 19 08 99 22 4f 4e 20 | 41 20 47 4f 53 55 42 20 |5..."ON |A GOSUB |
|00002550| 31 30 30 2c 32 30 30 2c | 33 30 30 22 3a 99 a3 33 |100,200,|300":..3|
|00002560| 29 22 11 49 46 20 41 20 | 3d 20 31 20 50 52 4f 47 |)".IF A |= 1 PROG|
|00002570| 52 41 4d 20 42 52 41 4e | 43 48 45 53 20 54 4f 20 |RAM BRAN|CHES TO |
|00002580| 31 30 30 2c 22 3b 00 ad | 35 1a 08 99 22 49 46 20 |100,";..|5..."IF |
|00002590| 20 20 20 20 41 20 3d 20 | 32 20 42 52 41 4e 43 48 |    A = |2 BRANCH|
|000025a0| 20 54 4f 20 32 30 30 20 | 45 54 43 2e 22 00 f0 35 | TO 200 |ETC."..5|
|000025b0| 1b 08 99 a3 33 29 22 11 | 4f 4e 2e 2e 47 4f 53 55 |....3)".|ON..GOSU|
|000025c0| 42 20 55 53 55 41 4c 4c | 59 20 49 53 20 45 58 45 |B USUALL|Y IS EXE|
|000025d0| 43 55 54 45 44 20 49 4e | 20 20 20 20 20 20 20 20 |CUTED IN|        |
|000025e0| 50 52 4f 47 52 41 4d 20 | 4d 4f 44 45 2c 20 22 3b |PROGRAM |MODE, ";|
|000025f0| 00 3e 36 1c 08 99 22 48 | 4f 57 45 56 45 52 2c 20 |.>6..."H|OWEVER, |
|00002600| 49 54 20 43 41 4e 20 42 | 45 20 55 53 45 44 20 20 |IT CAN B|E USED  |
|00002610| 20 49 4e 20 49 4d 4d 45 | 44 49 41 54 45 20 4d 4f | IN IMME|DIATE MO|
|00002620| 44 45 20 49 46 20 54 48 | 45 52 45 20 41 52 45 20 |DE IF TH|ERE ARE |
|00002630| 4c 49 4e 45 20 20 20 20 | 20 23 27 53 22 3b 00 68 |LINE    | #'S";.h|
|00002640| 36 1d 08 99 22 20 54 4f | 20 42 52 41 4e 43 48 20 |6..." TO| BRANCH |
|00002650| 54 4f 20 49 4e 20 50 52 | 4f 47 52 41 4d 2e 22 3a |TO IN PR|OGRAM.":|
|00002660| 99 3a 99 a3 38 29 4b 24 | 00 7d 36 1e 08 a1 41 24 |.:..8)K$|.}6...A$|
|00002670| 3a 8b 20 41 24 b2 22 22 | a7 32 30 37 38 00 86 36 |:. A$.""|.2078..6|
|00002680| 1f 08 89 32 30 30 00 c5 | 36 20 08 99 22 93 22 3a |...200..|6 ..".":|
|00002690| 99 a3 31 38 29 22 11 53 | 54 4f 50 22 3a 99 a3 33 |..18)".S|TOP":..3|
|000026a0| 29 22 11 54 48 49 53 20 | 53 54 41 54 45 4d 45 4e |)".THIS |STATEMEN|
|000026b0| 54 20 43 41 55 53 45 53 | 20 50 52 4f 47 52 41 4d |T CAUSES| PROGRAM|
|000026c0| 20 54 4f 20 22 00 fe 36 | 21 08 99 a3 33 29 22 53 | TO "..6|!...3)"S|
|000026d0| 54 4f 50 20 45 58 45 43 | 55 54 49 4f 4e 20 41 4e |TOP EXEC|UTION AN|
|000026e0| 44 20 52 45 54 55 52 4e | 20 43 4f 4e 54 52 4f 4c |D RETURN| CONTROL|
|000026f0| 20 54 4f 20 20 20 20 42 | 41 53 49 43 2e 22 00 45 | TO    B|ASIC.".E|
|00002700| 37 23 08 99 a3 33 29 22 | 11 53 54 4f 50 20 49 53 |7#...3)"|.STOP IS|
|00002710| 20 41 20 47 4f 4f 44 20 | 54 4f 4f 4c 20 46 4f 52 | A GOOD |TOOL FOR|
|00002720| 20 44 45 2d 42 55 47 47 | 49 4e 47 20 20 20 20 20 | DE-BUGG|ING     |
|00002730| 20 41 20 50 52 4f 47 52 | 41 4d 2e 20 49 54 20 43 | A PROGR|AM. IT C|
|00002740| 41 4e 20 22 3b 00 88 37 | 24 08 99 22 42 45 20 55 |AN ";..7|$.."BE U|
|00002750| 53 45 44 20 54 4f 20 52 | 55 4e 20 41 20 20 20 20 |SED TO R|UN A    |
|00002760| 20 20 50 4f 52 54 49 4f | 4e 20 4f 46 20 41 20 50 |  PORTIO|N OF A P|
|00002770| 52 4f 47 52 41 4d 20 54 | 4f 20 54 45 53 54 20 54 |ROGRAM T|O TEST T|
|00002780| 4f 20 53 54 4f 50 2e 22 | 00 93 37 27 08 99 a3 38 |O STOP."|..7'...8|
|00002790| 29 4b 24 00 a8 37 28 08 | a1 20 41 24 3a 8b 41 24 |)K$..7(.|. A$:.A$|
|000027a0| b2 22 22 a7 32 30 38 38 | 00 b1 37 29 08 89 32 30 |."".2088|..7)..20|
|000027b0| 30 00 f5 37 c2 0b 99 22 | 93 22 3a 99 a3 31 39 29 |0..7..."|.":..19)|
|000027c0| 22 11 11 47 45 54 11 11 | 9d 9d 9d 9d 9d 9d 9d 9d |"..GET..|........|
|000027d0| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 54 48 49 53 |........|....THIS|
|000027e0| 20 53 54 41 54 45 4d 45 | 4e 54 20 52 45 43 45 49 | STATEME|NT RECEI|
|000027f0| 56 45 53 22 3b 00 3c 38 | c3 0b 99 22 20 53 49 4e |VES";.<8|..." SIN|
|00002800| 47 4c 45 20 43 48 41 52 | 2d 20 20 20 20 41 43 54 |GLE CHAR|-    ACT|
|00002810| 45 52 53 20 41 53 20 49 | 4e 50 55 54 20 46 52 4f |ERS AS I|NPUT FRO|
|00002820| 4d 20 54 48 45 20 4b 45 | 59 42 4f 41 52 44 2e 22 |M THE KE|YBOARD."|
|00002830| 3a 99 a3 32 29 22 11 43 | 41 4e 22 3b 00 83 38 c4 |:..2)".C|AN";..8.|
|00002840| 0b 99 22 20 42 45 20 45 | 58 45 43 55 54 45 44 20 |.." BE E|XECUTED |
|00002850| 46 52 4f 4d 20 50 52 4f | 47 52 41 4d 20 4d 4f 44 |FROM PRO|GRAM MOD|
|00002860| 45 20 4f 4e 4c 59 22 3a | 99 a3 32 29 22 57 48 45 |E ONLY":|..2)"WHE|
|00002870| 4e 20 47 45 54 20 49 53 | 20 45 58 45 43 55 54 45 |N GET IS| EXECUTE|
|00002880| 44 22 3b 00 d0 38 c5 0b | 99 22 20 56 41 52 49 41 |D";..8..|." VARIA|
|00002890| 42 4c 45 20 49 53 20 41 | 53 53 2d 20 20 20 49 47 |BLE IS A|SS-   IG|
|000028a0| 4e 45 44 20 27 30 27 2d | 20 30 52 20 4e 55 4c 4c |NED '0'-| 0R NULL|
|000028b0| 20 49 46 20 41 20 53 54 | 52 49 4e 47 2e 20 50 52 | IF A ST|RING. PR|
|000028c0| 45 56 2e 20 20 20 56 41 | 4c 55 45 20 49 53 22 3b |EV.   VA|LUE IS";|
|000028d0| 00 1d 39 c6 0b 99 22 20 | 4c 4f 53 54 2e 20 54 48 |..9..." |LOST. TH|
|000028e0| 45 4e 20 27 47 45 54 27 | 20 4c 4f 4f 4b 53 20 41 |EN 'GET'| LOOKS A|
|000028f0| 54 20 20 20 20 20 20 4e | 45 58 54 20 43 48 41 52 |T      N|EXT CHAR|
|00002900| 41 43 54 45 52 20 46 52 | 4f 4d 20 4b 45 59 42 4f |ACTER FR|OM KEYBO|
|00002910| 41 52 44 20 42 55 46 46 | 45 52 20 22 3b 00 6a 39 |ARD BUFF|ER ";.j9|
|00002920| c7 0b 99 22 20 20 20 20 | 41 4e 44 20 41 53 53 49 |..."    |AND ASSI|
|00002930| 47 4e 53 20 49 54 20 54 | 4f 20 54 48 45 20 56 41 |GNS IT T|O THE VA|
|00002940| 52 49 41 42 4c 45 2e 20 | 49 46 20 20 20 20 20 20 |RIABLE. |IF      |
|00002950| 42 55 46 46 45 52 20 49 | 53 20 45 4d 50 54 59 20 |BUFFER I|S EMPTY |
|00002960| 56 41 52 49 41 42 4c 45 | 22 3b 00 90 39 c8 0b 99 |VARIABLE|";..9...|
|00002970| 22 20 52 45 4d 41 49 4e | 53 20 27 30 27 20 20 20 |" REMAIN|S '0'   |
|00002980| 20 4f 52 20 4e 55 4c 4c | 20 56 41 4c 55 45 2e 22 | OR NULL| VALUE."|
|00002990| 00 9b 39 c9 0b 99 a3 38 | 29 4b 24 00 af 39 ca 0b |..9....8|)K$..9..|
|000029a0| a1 41 24 3a 8b 41 24 b2 | 22 22 a7 33 30 31 38 00 |.A$:.A$.|"".3018.|
|000029b0| b8 39 cb 0b 89 33 30 30 | 00 fa 39 cc 0b 99 22 93 |.9...300|..9...".|
|000029c0| 22 3a 99 a3 31 37 29 22 | 49 4e 50 55 54 11 11 9d |":..17)"|INPUT...|
|000029d0| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |........|........|
|000029e0| 9d 9d 54 48 49 53 20 53 | 54 41 54 45 4d 45 4e 54 |..THIS S|TATEMENT|
|000029f0| 20 41 4c 4c 4f 57 53 20 | 22 3b 00 44 3a cd 0b 99 | ALLOWS |";.D:...|
|00002a00| 22 4f 50 45 52 41 54 4f | 52 20 54 4f 20 20 20 20 |"OPERATO|R TO    |
|00002a10| 20 20 20 46 45 45 44 20 | 49 4e 46 4f 52 4d 41 54 |   FEED |INFORMAT|
|00002a20| 49 4f 4e 20 54 4f 20 54 | 48 45 20 43 4f 4d 50 55 |ION TO T|HE COMPU|
|00002a30| 54 45 52 2e 22 3a 99 a3 | 33 29 22 11 55 53 49 4e |TER.":..|3)".USIN|
|00002a40| 47 20 22 3b 00 8f 3a ce | 0b 99 22 51 55 4f 54 45 |G ";..:.|.."QUOTE|
|00002a50| 20 4d 41 52 4b 53 20 41 | 46 54 45 52 20 49 4e 50 | MARKS A|FTER INP|
|00002a60| 55 54 20 41 4c 4c 4f 57 | 53 20 20 20 20 54 45 58 |UT ALLOW|S    TEX|
|00002a70| 54 20 54 4f 20 42 45 20 | 50 52 49 4e 54 45 44 20 |T TO BE |PRINTED |
|00002a80| 42 45 46 4f 52 45 20 3f | 20 4d 41 52 4b 2e 22 00 |BEFORE ?| MARK.".|
|00002a90| da 3a cf 0b 99 a3 33 29 | 22 50 52 4f 47 2e 20 48 |.:....3)|"PROG. H|
|00002aa0| 41 4c 54 53 20 41 4e 44 | 20 57 41 49 54 53 20 46 |ALTS AND| WAITS F|
|00002ab0| 4f 52 20 41 4e 53 57 45 | 52 20 54 4f 20 20 20 20 |OR ANSWE|R TO    |
|00002ac0| 20 42 45 20 54 59 50 45 | 44 20 49 4e 20 41 4e 44 | BE TYPE|D IN AND|
|00002ad0| 2d 52 45 54 55 52 4e 2d | 22 3b 00 25 3b d0 0b 99 |-RETURN-|";.%;...|
|00002ae0| 22 20 50 52 45 53 53 45 | 44 2e 22 3a 99 a3 33 29 |" PRESSE|D.":..3)|
|00002af0| 22 11 54 59 50 45 20 49 | 4e 20 41 53 20 4d 41 4e |".TYPE I|N AS MAN|
|00002b00| 59 20 49 4e 50 55 54 53 | 20 41 53 20 4e 45 45 44 |Y INPUTS| AS NEED|
|00002b10| 45 44 20 53 45 50 2d 20 | 20 20 41 52 41 54 45 44 |ED SEP- |  ARATED|
|00002b20| 20 42 59 22 3b 00 6f 3b | d1 0b 99 22 20 43 4f 4d | BY";.o;|..." COM|
|00002b30| 4d 41 53 2e 22 3a 99 a3 | 33 29 22 11 49 46 20 54 |MAS.":..|3)".IF T|
|00002b40| 4f 4f 20 4d 55 43 48 20 | 44 41 54 41 20 49 53 20 |OO MUCH |DATA IS |
|00002b50| 50 55 54 20 49 4e 2c 20 | 27 3f 45 58 54 52 41 20 |PUT IN, |'?EXTRA |
|00002b60| 20 20 20 20 49 47 4e 4f | 52 45 44 27 20 22 3b 00 |    IGNO|RED' ";.|
|00002b70| b4 3b d2 0b 99 22 57 49 | 4c 4c 20 42 45 20 44 49 |.;..."WI|LL BE DI|
|00002b80| 53 50 4c 41 59 45 44 2e | 20 49 46 20 4e 4f 54 20 |SPLAYED.| IF NOT |
|00002b90| 20 20 20 20 20 45 4e 4f | 55 47 48 20 49 53 20 50 |     ENO|UGH IS P|
|00002ba0| 55 54 20 49 4e 20 27 3f | 3f 27 20 41 50 50 45 41 |UT IN '?|?' APPEA|
|00002bb0| 52 53 2e 22 00 bf 3b d3 | 0b 99 a3 38 29 4b 24 00 |RS."..;.|...8)K$.|
|00002bc0| d3 3b d4 0b a1 41 24 3a | 8b 41 24 b2 22 22 a7 33 |.;...A$:|.A$."".3|
|00002bd0| 30 32 38 00 dc 3b d5 0b | 89 33 30 30 00 23 3c d6 |028..;..|.300.#<.|
|00002be0| 0b 99 22 93 22 3a 99 a3 | 31 39 29 22 11 11 50 4f |..".":..|19)"..PO|
|00002bf0| 53 11 11 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |S.......|........|
|00002c00| 9d 9d 9d 9d 9d 9d 54 4f | 20 55 53 45 20 54 48 45 |......TO| USE THE|
|00002c10| 20 54 41 42 20 46 55 4e | 43 54 49 4f 4e 20 4f 4e | TAB FUN|CTION ON|
|00002c20| 20 22 3b 00 72 3c d7 0b | 99 22 54 48 45 20 20 20 | ";.r<..|."THE   |
|00002c30| 20 20 20 20 20 20 20 50 | 52 49 4e 54 45 52 20 59 |       P|RINTER Y|
|00002c40| 4f 55 20 57 49 4c 4c 20 | 4e 45 45 44 20 54 48 45 |OU WILL |NEED THE|
|00002c50| 20 50 4f 53 20 49 4e 53 | 54 2d 20 20 20 20 20 52 | POS INS|T-     R|
|00002c60| 55 43 54 49 4f 4e 20 57 | 48 49 43 48 20 49 53 20 |UCTION W|HICH IS |
|00002c70| 22 3b 00 bc 3c d8 0b 99 | 22 52 45 50 52 45 53 45 |";..<...|"REPRESE|
|00002c80| 4e 54 45 44 20 42 59 20 | 20 20 20 20 20 20 20 20 |NTED BY |        |
|00002c90| 43 48 52 24 28 31 36 29 | 2e 22 3a 99 a3 33 29 22 |CHR$(16)|.":..3)"|
|00002ca0| 11 54 4f 20 50 52 49 4e | 54 20 41 4e 20 2a 20 41 |.TO PRIN|T AN * A|
|00002cb0| 54 20 54 41 42 28 31 30 | 29 20 22 3b 00 00 3d d9 |T TAB(10|) ";..=.|
|00002cc0| 0b 99 22 20 55 53 45 22 | 3a 99 22 11 50 52 49 4e |.." USE"|:.".PRIN|
|00002cd0| 54 23 31 3b 43 48 52 24 | 28 31 36 29 3b 43 48 52 |T#1;CHR$|(16);CHR|
|00002ce0| 24 28 34 39 29 3b 43 48 | 52 24 28 34 38 29 3b 22 |$(49);CH|R$(48);"|
|00002cf0| aa c7 28 33 34 29 3b 22 | 2a 22 3b c7 28 33 34 29 |..(34);"|*";.(34)|
|00002d00| 00 25 3d da 0b 99 a3 33 | 29 22 11 43 48 52 24 28 |.%=....3|)".CHR$(|
|00002d10| 34 39 29 3d 31 20 41 4e | 44 20 43 48 52 24 28 34 |49)=1 AN|D CHR$(4|
|00002d20| 38 29 3d 30 22 00 30 3d | dd 0b 99 a3 38 29 4b 24 |8)=0".0=|....8)K$|
|00002d30| 00 46 3d de 0b a1 20 41 | 24 3a 8b 41 24 b2 22 22 |.F=... A|$:.A$.""|
|00002d40| a7 20 33 30 33 38 00 50 | 3d df 0b 89 20 33 30 30 |. 3038.P|=... 300|
|00002d50| 00 93 3d e0 0b 99 22 93 | 22 3a 99 a3 31 37 29 22 |..=...".|":..17)"|
|00002d60| 11 11 11 50 52 49 4e 54 | 11 11 9d 9d 9d 9d 9d 9d |...PRINT|........|
|00002d70| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 54 48 45 |........|.....THE|
|00002d80| 20 50 52 49 4e 54 20 53 | 54 41 54 45 4d 45 4e 54 | PRINT S|TATEMENT|
|00002d90| 20 22 3b 00 d0 3d e1 0b | 99 22 43 41 55 53 45 53 | ";..=..|."CAUSES|
|00002da0| 20 44 41 54 41 20 54 4f | 20 42 45 20 20 20 44 49 | DATA TO| BE   DI|
|00002db0| 53 50 4c 41 59 45 44 2e | 20 54 48 45 20 46 49 52 |SPLAYED.| THE FIR|
|00002dc0| 53 54 20 44 41 54 41 20 | 49 54 45 4d 20 49 53 22 |ST DATA |ITEM IS"|
|00002dd0| 00 18 3e e2 0b 99 a3 33 | 29 22 44 49 53 50 4c 41 |..>....3|)"DISPLA|
|00002de0| 59 45 44 20 41 54 20 54 | 48 45 20 43 55 52 52 45 |YED AT T|HE CURRE|
|00002df0| 4e 54 20 43 55 52 53 4f | 52 20 50 4f 53 49 2d 20 |NT CURSO|R POSI- |
|00002e00| 20 20 54 49 4f 4e 2e 22 | 3a 99 a3 33 29 22 11 49 |  TION."|:..3)".I|
|00002e10| 46 20 54 48 45 20 22 3b | 00 65 3e e3 0b 99 22 49 |F THE ";|.e>..."I|
|00002e20| 54 45 4d 20 49 53 20 46 | 4f 4c 4c 4f 57 45 44 20 |TEM IS F|OLLOWED |
|00002e30| 42 59 20 41 20 43 4f 4d | 4d 41 2c 20 20 20 20 20 |BY A COM|MA,     |
|00002e40| 54 48 45 20 4e 45 58 54 | 20 49 54 45 4d 20 49 53 |THE NEXT| ITEM IS|
|00002e50| 20 50 52 49 4e 54 45 44 | 20 41 54 20 31 53 54 20 | PRINTED| AT 1ST |
|00002e60| 54 41 42 20 22 00 b2 3e | e4 0b 99 a3 33 29 22 50 |TAB "..>|....3)"P|
|00002e70| 4f 53 20 31 31 20 26 20 | 54 48 45 20 4e 45 58 54 |OS 11 & |THE NEXT|
|00002e80| 20 41 54 20 50 4f 53 20 | 32 31 20 45 54 43 2e 20 | AT POS |21 ETC. |
|00002e90| 41 20 20 20 20 20 20 53 | 45 4d 49 43 4f 4c 4f 4e |A      S|EMICOLON|
|00002ea0| 20 43 41 55 53 45 53 20 | 49 54 45 4d 20 54 4f 20 | CAUSES |ITEM TO |
|00002eb0| 42 45 00 f6 3e e5 0b 99 | 22 20 20 20 50 52 49 4e |BE..>...|"   PRIN|
|00002ec0| 54 45 44 20 49 4e 20 20 | 20 46 49 52 53 54 20 41 |TED IN  | FIRST A|
|00002ed0| 56 41 49 4c 41 42 4c 45 | 20 43 4f 4c 55 4d 4e 2e |VAILABLE| COLUMN.|
|00002ee0| 22 3a 99 a3 33 29 22 11 | 4e 4f 20 43 4f 4d 4d 41 |":..3)".|NO COMMA|
|00002ef0| 20 4f 52 20 22 3b 00 3b | 3f e6 0b 99 22 53 45 4d | OR ";.;|?..."SEM|
|00002f00| 49 43 4f 4c 4f 4e 20 43 | 41 55 53 45 53 20 41 20 |ICOLON C|AUSES A |
|00002f10| 43 41 52 2d 20 20 20 20 | 20 52 49 41 47 45 20 52 |CAR-    | RIAGE R|
|00002f20| 45 54 55 52 4e 20 54 4f | 20 46 4f 4c 4c 4f 57 20 |ETURN TO| FOLLOW |
|00002f30| 4c 41 53 54 20 49 54 45 | 4d 2e 22 00 46 3f e7 0b |LAST ITE|M.".F?..|
|00002f40| 99 a3 38 29 4b 24 00 5c | 3f e8 0b a1 41 24 3a 8b |..8)K$.\|?...A$:.|
|00002f50| 20 41 24 b2 22 22 a7 20 | 33 30 34 38 00 66 3f e9 | A$."". |3048.f?.|
|00002f60| 0b 89 20 33 30 30 00 a6 | 3f ea 0b 99 22 93 22 3a |.. 300..|?...".":|
|00002f70| 99 a3 31 39 29 22 11 11 | 11 53 50 43 11 11 9d 9d |..19)"..|.SPC....|
|00002f80| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d |........|........|
|00002f90| 9d 41 49 44 53 20 49 4e | 20 46 4f 52 4d 41 54 54 |.AIDS IN| FORMATT|
|00002fa0| 49 4e 47 20 22 3b 00 f5 | 3f eb 0b 99 22 54 4f 20 |ING ";..|?..."TO |
|00002fb0| 41 4c 4c 4f 57 20 50 52 | 49 4e 54 20 20 20 20 20 |ALLOW PR|INT     |
|00002fc0| 20 20 53 54 41 54 45 4d | 45 4e 54 53 20 54 4f 20 |  STATEM|ENTS TO |
|00002fd0| 50 52 49 4e 54 20 4d 45 | 53 53 41 47 45 53 20 49 |PRINT ME|SSAGES I|
|00002fe0| 4e 20 44 49 46 46 2d 20 | 20 20 45 52 45 4e 54 20 |N DIFF- |  ERENT |
|00002ff0| 50 4f 53 22 3b 00 42 40 | ec 0b 99 22 49 54 49 4f |POS";.B@|..."ITIO|
|00003000| 4e 53 20 4f 4e 20 41 20 | 4c 49 4e 45 2e 22 3a 99 |NS ON A |LINE.":.|
|00003010| a3 33 29 22 11 53 50 43 | 20 49 53 20 41 20 53 50 |.3)".SPC| IS A SP|
|00003020| 41 43 45 20 4f 56 45 52 | 20 46 55 4e 43 54 49 4f |ACE OVER| FUNCTIO|
|00003030| 4e 2e 20 41 46 54 45 52 | 20 20 20 20 20 53 50 43 |N. AFTER|     SPC|
|00003040| 22 3b 00 8d 40 ed 0b 99 | 22 2c 20 49 4e 20 50 41 |";..@...|", IN PA|
|00003050| 52 45 4e 54 48 45 53 45 | 53 2c 20 49 4e 43 4c 55 |RENTHESE|S, INCLU|
|00003060| 44 45 20 54 48 45 20 4e | 55 4d 2d 20 20 20 42 45 |DE THE N|UM-   BE|
|00003070| 52 20 4f 46 20 50 4f 53 | 49 54 49 4f 4e 53 20 59 |R OF POS|ITIONS Y|
|00003080| 4f 55 20 57 49 53 48 20 | 54 4f 20 22 3b 00 d0 40 |OU WISH |TO ";..@|
|00003090| ee 0b 99 a3 33 29 22 53 | 50 41 43 45 20 20 20 20 |....3)"S|PACE    |
|000030a0| 20 20 4f 56 45 52 2e 22 | 3a 99 a3 31 32 29 22 11 |  OVER."|:..12)".|
|000030b0| 32 30 20 3f 20 53 50 43 | 28 31 30 29 22 3b c7 28 |20 ? SPC|(10)";.(|
|000030c0| 33 34 29 22 54 49 54 4c | 45 22 3b c7 28 33 34 29 |34)"TITL|E";.(34)|
|000030d0| 00 19 41 ef 0b 99 a3 33 | 29 22 11 54 48 45 20 41 |..A....3|)".THE A|
|000030e0| 42 4f 56 45 20 57 49 4c | 4c 20 50 52 49 4e 54 20 |BOVE WIL|L PRINT |
|000030f0| 54 48 45 20 57 4f 52 44 | 20 54 49 54 4c 45 20 20 |THE WORD| TITLE  |
|00003100| 20 20 20 42 45 47 49 4e | 4e 49 4e 47 20 41 54 20 |   BEGIN|NING AT |
|00003110| 53 50 41 43 45 20 31 30 | 2e 00 24 41 f1 0b 99 a3 |SPACE 10|..$A....|
|00003120| 38 29 4b 24 00 3a 41 f2 | 0b a1 20 41 24 3a 8b 20 |8)K$.:A.|.. A$:. |
|00003130| 41 24 b2 22 22 a7 33 30 | 35 38 00 44 41 f3 0b 89 |A$."".30|58.DA...|
|00003140| 20 33 30 30 00 89 41 f4 | 0b 99 22 93 22 3a 99 a3 | 300..A.|..".":..|
|00003150| 31 39 29 22 11 11 11 54 | 41 42 11 11 9d 9d 9d 9d |19)"...T|AB......|
|00003160| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 54 |........|.......T|
|00003170| 48 49 53 20 46 55 4e 43 | 54 49 4f 4e 20 43 41 4e |HIS FUNC|TION CAN|
|00003180| 20 42 45 20 43 4f 4d 22 | 3b 00 b5 41 f5 0b 99 22 | BE COM"|;..A..."|
|00003190| 50 41 52 45 44 20 57 49 | 54 48 20 20 20 20 20 20 |PARED WI|TH      |
|000031a0| 54 41 42 20 4f 4e 20 41 | 20 54 59 50 45 57 52 49 |TAB ON A| TYPEWRI|
|000031b0| 54 45 52 2e 22 00 ff 41 | f6 0b 99 a3 33 29 22 11 |TER."..A|....3)".|
|000031c0| 42 45 47 49 4e 4e 49 4e | 47 20 57 49 54 48 20 43 |BEGINNIN|G WITH C|
|000031d0| 4f 4c 55 4d 4e 20 30 20 | 59 4f 55 20 43 41 4e 20 |OLUMN 0 |YOU CAN |
|000031e0| 43 41 4c 43 2d 20 20 20 | 55 4c 41 54 45 20 54 48 |CALC-   |ULATE TH|
|000031f0| 45 20 43 4f 4c 55 4d 4e | 20 59 4f 55 20 22 3b 00 |E COLUMN| YOU ";.|
|00003200| 3d 42 f7 0b 99 22 57 49 | 53 48 20 54 4f 20 48 41 |=B..."WI|SH TO HA|
|00003210| 56 45 20 20 20 20 20 20 | 20 50 52 49 4e 54 20 53 |VE      | PRINT S|
|00003220| 54 41 54 45 4d 45 4e 54 | 20 42 45 47 49 4e 20 49 |TATEMENT| BEGIN I|
|00003230| 54 27 53 20 44 49 53 50 | 4c 41 59 2e 22 00 6c 42 |T'S DISP|LAY.".lB|
|00003240| f8 0b 99 a3 37 29 22 11 | 33 30 20 50 52 49 4e 54 |....7)".|30 PRINT|
|00003250| 20 54 41 42 28 31 30 29 | 22 3b c7 28 33 34 29 aa | TAB(10)|";.(34).|
|00003260| 22 4e 41 4d 45 22 aa c7 | 28 33 34 29 00 a7 42 f9 |"NAME"..|(34)..B.|
|00003270| 0b 99 a3 33 29 22 11 4d | 4f 56 45 53 20 54 4f 20 |...3)".M|OVES TO |
|00003280| 43 4f 4c 55 4d 4e 20 31 | 30 20 42 45 46 4f 52 45 |COLUMN 1|0 BEFORE|
|00003290| 20 50 52 49 4e 54 49 4e | 47 20 20 20 20 20 20 27 | PRINTIN|G      '|
|000032a0| 4e 41 4d 45 27 2e 22 00 | b2 42 fb 0b 99 a3 38 29 |NAME'.".|.B....8)|
|000032b0| 4b 24 00 c9 42 fc 0b a1 | 20 41 24 3a 8b 20 41 24 |K$..B...| A$:. A$|
|000032c0| b2 22 22 a7 20 33 30 36 | 38 00 d3 42 fd 0b 89 20 |."". 306|8..B... |
|000032d0| 33 30 30 00 1b 43 aa 0f | 99 22 93 22 3a 99 a3 31 |300..C..|.".":..1|
|000032e0| 38 29 22 11 41 42 53 11 | 11 9d 9d 9d 9d 9d 9d 9d |8)".ABS.|........|
|000032f0| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 41 42 53 28 58 |........|...ABS(X|
|00003300| 29 3d 58 20 49 46 20 58 | 20 49 53 20 50 4f 53 49 |)=X IF X| IS POSI|
|00003310| 54 49 56 45 20 4f 52 20 | 30 2e 22 00 42 43 ab 0f |TIVE OR |0.".BC..|
|00003320| 99 a3 33 29 22 11 41 42 | 53 28 58 29 3d 2d 58 20 |..3)".AB|S(X)=-X |
|00003330| 49 46 20 58 20 49 53 20 | 4e 45 47 41 54 49 56 45 |IF X IS |NEGATIVE|
|00003340| 2e 22 00 86 43 ac 0f 99 | a3 33 29 22 11 54 48 45 |."..C...|.3)".THE|
|00003350| 20 41 42 53 4f 4c 55 54 | 45 20 56 41 4c 55 45 20 | ABSOLUT|E VALUE |
|00003360| 4f 46 20 41 20 4e 55 4d | 42 45 52 20 49 53 20 20 |OF A NUM|BER IS  |
|00003370| 20 20 20 20 20 52 45 54 | 55 52 4e 45 44 20 57 48 |     RET|URNED WH|
|00003380| 49 43 48 20 22 3b 00 ae | 43 ad 0f 99 22 49 53 20 |ICH ";..|C..."IS |
|00003390| 49 54 27 53 20 56 41 4c | 55 45 20 57 49 54 48 4f |IT'S VAL|UE WITHO|
|000033a0| 55 54 20 20 20 20 41 20 | 53 49 47 4e 2e 22 00 f6 |UT    A |SIGN."..|
|000033b0| 43 ae 0f 99 a3 33 29 22 | 11 54 48 45 20 41 42 53 |C....3)"|.THE ABS|
|000033c0| 4f 4c 55 54 45 20 56 41 | 4c 55 45 20 4f 46 20 41 |OLUTE VA|LUE OF A|
|000033d0| 20 4e 45 47 41 54 49 56 | 45 20 4e 55 4d 2d 20 20 | NEGATIV|E NUM-  |
|000033e0| 20 42 45 52 20 49 53 20 | 54 48 41 54 20 4e 55 4d | BER IS |THAT NUM|
|000033f0| 42 45 52 20 22 3b 00 10 | 44 af 0f 99 20 22 4d 55 |BER ";..|D... "MU|
|00003400| 4c 54 49 50 4c 49 45 44 | 20 42 59 20 2d 31 2e 22 |LTIPLIED| BY -1."|
|00003410| 00 46 44 b0 0f 99 a3 31 | 34 29 22 11 32 30 20 58 |.FD....1|4)".20 X|
|00003420| 3d 41 42 53 28 42 29 11 | 11 9d 9d 9d 9d 9d 9d 9d |=ABS(B).|........|
|00003430| 9d 9d 9d 9d 32 30 20 50 | 52 49 4e 54 20 41 42 53 |....20 P|RINT ABS|
|00003440| 28 42 2a 4a 29 22 00 51 | 44 b1 0f 99 a3 38 29 4b |(B*J)".Q|D....8)K|
|00003450| 24 00 68 44 b2 0f a1 20 | 41 24 3a 8b 20 41 24 b2 |$.hD... |A$:. A$.|
|00003460| 22 22 a7 20 34 30 31 38 | 00 72 44 b3 0f 89 20 34 |"". 4018|.rD... 4|
|00003470| 30 30 00 b2 44 b4 0f 99 | 22 93 22 3a 99 a3 31 38 |00..D...|".":..18|
|00003480| 29 22 11 41 54 4e 22 3a | 99 a3 33 29 22 11 41 54 |)".ATN":|..3)".AT|
|00003490| 4e 28 58 29 20 52 45 54 | 55 52 4e 53 20 54 48 45 |N(X) RET|URNS THE|
|000034a0| 20 41 52 43 54 41 4e 47 | 45 4e 54 20 4f 46 20 58 | ARCTANG|ENT OF X|
|000034b0| 2e 22 00 fe 44 b5 0f 99 | a3 33 29 22 11 54 48 45 |."..D...|.3)".THE|
|000034c0| 20 41 52 43 54 41 4e 47 | 45 4e 54 20 4f 46 20 58 | ARCTANG|ENT OF X|
|000034d0| 20 49 53 20 54 48 45 20 | 41 4e 47 4c 45 20 20 20 | IS THE |ANGLE   |
|000034e0| 20 20 20 20 20 57 48 4f | 53 45 20 54 41 4e 47 45 |     WHO|SE TANGE|
|000034f0| 4e 54 20 45 51 55 41 4c | 53 20 58 2e 22 3b 00 3f |NT EQUAL|S X.";.?|
|00003500| 45 b6 0f 99 22 20 54 48 | 45 20 41 4e 47 4c 45 20 |E..." TH|E ANGLE |
|00003510| 49 53 20 20 20 20 52 45 | 54 55 52 4e 45 44 20 49 |IS    RE|TURNED I|
|00003520| 4e 20 52 41 44 49 41 4e | 53 2e 22 3a 99 a3 33 29 |N RADIAN|S.":..3)|
|00003530| 22 11 54 4f 20 43 4f 4d | 50 55 54 45 20 22 3b 00 |".TO COM|PUTE ";.|
|00003540| 82 45 b7 0f 99 22 54 48 | 45 20 41 52 43 54 41 4e |.E..."TH|E ARCTAN|
|00003550| 47 45 4e 54 53 20 45 58 | 50 52 45 53 53 45 44 20 |GENTS EX|PRESSED |
|00003560| 20 20 20 49 4e 20 44 45 | 47 52 45 53 53 2c 20 55 |   IN DE|GRESS, U|
|00003570| 53 45 20 54 48 49 53 20 | 46 55 4e 43 54 49 4f 4e |SE THIS |FUNCTION|
|00003580| 2e 22 00 9b 45 b8 0f 99 | a3 31 30 29 22 11 31 38 |."..E...|.10)".18|
|00003590| 30 2a 41 54 4e 28 58 29 | 2a ff 22 00 a6 45 bb 0f |0*ATN(X)|*."..E..|
|000035a0| 99 a3 38 29 4b 24 00 bb | 45 bc 0f a1 20 41 24 3a |..8)K$..|E... A$:|
|000035b0| 8b 41 24 b2 22 22 a7 34 | 30 32 38 00 c5 45 bd 0f |.A$."".4|028..E..|
|000035c0| 89 20 34 30 30 00 db 45 | be 0f 99 22 93 22 3a 99 |. 400..E|...".":.|
|000035d0| a3 31 38 29 22 11 11 43 | 4f 53 22 00 23 46 bf 0f |.18)"..C|OS".#F..|
|000035e0| 99 a3 33 29 22 11 43 4f | 53 28 58 29 20 43 41 4c |..3)".CO|S(X) CAL|
|000035f0| 43 55 4c 41 54 45 53 20 | 54 48 45 20 43 4f 53 49 |CULATES |THE COSI|
|00003600| 4e 45 20 4f 46 20 58 20 | 20 20 20 20 20 20 57 48 |NE OF X |      WH|
|00003610| 45 52 45 20 54 48 45 20 | 4e 55 4d 42 45 52 20 58 |ERE THE |NUMBER X|
|00003620| 20 22 3b 00 48 46 c0 0f | 99 22 49 53 20 54 48 45 | ";.HF..|."IS THE|
|00003630| 20 41 4e 47 4c 45 20 49 | 4e 20 20 20 20 20 20 52 | ANGLE I|N      R|
|00003640| 41 44 49 41 4e 53 2e 22 | 00 69 46 c1 0f 99 a3 38 |ADIANS."|.iF....8|
|00003650| 29 22 11 31 30 20 50 52 | 49 4e 54 20 43 4f 53 28 |)".10 PR|INT COS(|
|00003660| 58 2a ff 2f 31 38 30 29 | 22 00 93 46 c2 0f 99 a3 |X*./180)|"..F....|
|00003670| 35 29 22 11 28 57 48 45 | 52 45 20 58 20 49 53 20 |5)".(WHE|RE X IS |
|00003680| 53 54 41 54 45 44 20 49 | 4e 20 44 45 47 52 45 45 |STATED I|N DEGREE|
|00003690| 53 29 22 00 a2 46 c5 0f | 99 a3 38 29 22 11 11 22 |S)"..F..|..8)".."|
|000036a0| 4b 24 00 b7 46 c6 0f a1 | 20 41 24 3a 8b 41 24 b2 |K$..F...| A$:.A$.|
|000036b0| 22 22 a7 34 30 33 38 00 | c1 46 c7 0f 89 20 34 30 |"".4038.|.F... 40|
|000036c0| 30 00 da 46 c8 0f 99 22 | 93 22 3a 99 a3 31 37 29 |0..F..."|.":..17)|
|000036d0| 22 11 11 44 45 46 20 46 | 4e 22 00 1b 47 c9 0f 99 |"..DEF F|N"..G...|
|000036e0| a3 33 29 22 11 53 45 54 | 53 20 55 50 20 41 20 55 |.3)".SET|S UP A U|
|000036f0| 53 45 52 20 44 45 46 49 | 4e 45 44 20 46 55 4e 43 |SER DEFI|NED FUNC|
|00003700| 54 49 4f 4e 20 54 48 41 | 54 20 20 20 20 43 41 4e |TION THA|T    CAN|
|00003710| 20 42 45 20 55 53 45 44 | 20 22 3b 00 57 47 ca 0f | BE USED| ";.WG..|
|00003720| 99 22 4c 41 54 45 52 20 | 49 4e 20 54 48 45 20 50 |."LATER |IN THE P|
|00003730| 52 4f 47 52 41 4d 2e 22 | 3a 99 a3 33 29 22 11 54 |ROGRAM."|:..3)".T|
|00003740| 48 45 20 46 55 4e 43 54 | 49 4f 4e 20 43 41 4e 20 |HE FUNCT|ION CAN |
|00003750| 42 45 20 41 20 22 3b 00 | 9c 47 cb 0f 99 22 4d 41 |BE A ";.|.G..."MA|
|00003760| 54 48 45 4d 41 54 49 43 | 41 4c 20 20 20 20 20 20 |THEMATIC|AL      |
|00003770| 46 4f 52 4d 55 4c 41 20 | 54 48 41 54 20 49 53 20 |FORMULA |THAT IS |
|00003780| 55 53 45 44 20 53 45 56 | 45 52 41 4c 20 54 49 4d |USED SEV|ERAL TIM|
|00003790| 45 53 20 49 4e 20 20 20 | 41 20 22 3b 00 e3 47 cc |ES IN   |A ";..G.|
|000037a0| 0f 99 22 50 52 4f 47 52 | 41 4d 2e 20 22 3a 99 a3 |.."PROGR|AM. ":..|
|000037b0| 33 29 22 11 54 48 45 20 | 46 4f 52 4d 55 4c 41 20 |3)".THE |FORMULA |
|000037c0| 49 53 20 53 54 41 54 45 | 44 20 4f 4e 43 45 20 41 |IS STATE|D ONCE A|
|000037d0| 4e 44 20 54 48 45 4e 20 | 20 20 20 20 55 53 45 44 |ND THEN |    USED|
|000037e0| 20 22 3b 00 19 48 cd 0f | 99 22 41 53 20 41 20 46 | ";..H..|."AS A F|
|000037f0| 55 4e 43 54 49 4f 4e 20 | 4e 41 4d 45 2e 22 3a 99 |UNCTION |NAME.":.|
|00003800| a3 31 32 29 22 11 31 30 | 20 44 45 46 20 46 4e 20 |.12)".10| DEF FN |
|00003810| 41 28 58 29 3d 58 2b 37 | 22 00 53 48 ce 0f 99 a3 |A(X)=X+7|".SH....|
|00003820| 31 32 29 22 11 32 30 20 | 50 52 49 4e 54 20 46 4e |12)".20 |PRINT FN|
|00003830| 28 34 29 22 3a 99 a3 38 | 29 22 28 52 45 53 55 4c |(4)":..8|)"(RESUL|
|00003840| 54 53 20 49 4e 20 31 31 | 20 57 48 45 4e 20 52 55 |TS IN 11| WHEN RU|
|00003850| 4e 29 22 00 61 48 cf 0f | 99 a3 38 29 22 11 22 4b |N)".aH..|..8)"."K|
|00003860| 24 00 76 48 d0 0f a1 41 | 24 3a 8b 20 41 24 b2 22 |$.vH...A|$:. A$."|
|00003870| 22 a7 34 30 34 38 00 80 | 48 d1 0f 89 20 34 30 30 |".4048..|H... 400|
|00003880| 00 95 48 d2 0f 99 22 93 | 22 3a 99 a3 31 38 29 22 |..H...".|":..18)"|
|00003890| 11 45 58 50 22 00 d4 48 | d3 0f 99 a3 33 29 22 11 |.EXP"..H|....3)".|
|000038a0| 11 45 58 50 28 58 29 20 | 43 41 4c 43 55 4c 41 54 |.EXP(X) |CALCULAT|
|000038b0| 45 53 20 54 48 45 20 56 | 41 4c 55 45 20 4f 46 20 |ES THE V|ALUE OF |
|000038c0| 54 48 45 20 20 20 20 20 | 20 43 4f 4e 53 54 41 4e |THE     | CONSTAN|
|000038d0| 54 20 22 3b 00 f6 48 d4 | 0f 99 20 22 45 3d 32 2e |T ";..H.|.. "E=2.|
|000038e0| 37 31 38 32 38 39 20 54 | 4f 20 54 48 45 20 58 20 |718289 T|O THE X |
|000038f0| 50 4f 57 45 52 22 00 11 | 49 d5 0f 99 a3 31 32 29 |POWER"..|I....12)|
|00003900| 22 11 31 30 20 50 52 49 | 4e 54 20 45 58 50 28 31 |".10 PRI|NT EXP(1|
|00003910| 29 00 2f 49 d6 0f 99 a3 | 31 30 29 22 11 28 52 45 |)./I....|10)".(RE|
|00003920| 54 55 52 4e 53 20 32 2e | 37 31 38 32 38 39 29 00 |TURNS 2.|718289).|
|00003930| 75 49 d7 0f 99 a3 33 29 | 22 11 41 20 56 41 4c 55 |uI....3)|".A VALU|
|00003940| 45 20 47 52 45 41 54 45 | 52 20 54 48 41 4e 20 38 |E GREATE|R THAN 8|
|00003950| 38 2e 30 32 39 36 39 31 | 39 20 20 20 20 20 20 20 |8.029691|9       |
|00003960| 20 20 43 41 55 53 45 53 | 20 41 4e 20 4f 56 45 52 |  CAUSES| AN OVER|
|00003970| 46 4c 4f 57 22 00 80 49 | d9 0f 99 a3 38 29 4b 24 |FLOW"..I|....8)K$|
|00003980| 00 95 49 da 0f a1 20 41 | 24 3a 8b 41 24 b2 22 22 |..I... A|$:.A$.""|
|00003990| a7 34 30 35 38 00 9f 49 | db 0f 89 20 34 30 30 00 |.4058..I|... 400.|
|000039a0| e2 49 dc 0f 99 22 93 22 | 3a 99 a3 31 38 29 22 11 |.I..."."|:..18)".|
|000039b0| 11 49 4e 54 22 3a 99 a3 | 33 29 22 11 52 45 54 55 |.INT":..|3)".RETU|
|000039c0| 52 4e 53 20 54 48 45 20 | 49 4e 54 45 47 45 52 20 |RNS THE |INTEGER |
|000039d0| 50 4f 52 54 49 4f 4e 20 | 4f 46 20 41 20 4e 55 4d |PORTION |OF A NUM|
|000039e0| 2d 22 00 1d 4a dd 0f 99 | a3 33 29 22 91 42 45 52 |-"..J...|.3)".BER|
|000039f0| 2e 20 49 54 20 57 49 4c | 4c 20 52 4f 55 4e 44 20 |. IT WIL|L ROUND |
|00003a00| 54 4f 20 54 48 45 20 4e | 45 58 54 20 4c 4f 57 45 |TO THE N|EXT LOWE|
|00003a10| 52 20 20 20 20 4e 55 4d | 42 45 52 2e 22 00 65 4a |R    NUM|BER.".eJ|
|00003a20| de 0f 99 a3 33 29 22 11 | 46 4f 52 20 50 4f 53 49 |....3)".|FOR POSI|
|00003a30| 54 49 56 45 20 4e 55 4d | 42 45 52 53 2c 20 49 4e |TIVE NUM|BERS, IN|
|00003a40| 54 20 44 52 4f 50 53 20 | 54 48 45 20 20 20 20 20 |T DROPS |THE     |
|00003a50| 46 52 41 43 54 49 4f 4e | 41 4c 20 50 4f 52 54 49 |FRACTION|AL PORTI|
|00003a60| 4f 4e 20 22 3b 00 a9 4a | df 0f 99 22 4f 46 20 54 |ON ";..J|..."OF T|
|00003a70| 48 45 20 4e 55 4d 42 45 | 52 20 20 20 20 20 20 20 |HE NUMBE|R       |
|00003a80| 20 57 49 54 48 4f 55 54 | 20 52 4f 55 4e 44 49 4e | WITHOUT| ROUNDIN|
|00003a90| 47 2e 22 3a 99 a3 33 29 | 22 11 46 4f 52 20 4e 45 |G.":..3)|".FOR NE|
|00003aa0| 47 41 54 49 56 45 20 22 | 3b 00 f2 4a e0 0f 99 22 |GATIVE "|;..J..."|
|00003ab0| 4e 55 4d 42 45 52 53 2c | 20 49 4e 54 20 44 52 4f |NUMBERS,| INT DRO|
|00003ac0| 50 53 20 54 48 45 20 20 | 20 20 20 46 52 41 43 54 |PS THE  |   FRACT|
|00003ad0| 49 4f 4e 41 4c 20 50 4f | 52 54 49 4f 4e 20 4f 46 |IONAL PO|RTION OF|
|00003ae0| 20 54 48 45 20 4e 55 4d | 42 45 52 20 41 4e 44 20 | THE NUM|BER AND |
|00003af0| 22 3b 00 04 4b e1 0f 99 | 22 20 20 20 41 44 44 53 |";..K...|"   ADDS|
|00003b00| 20 31 2e 22 00 0f 4b e3 | 0f 99 a3 38 29 4b 24 00 | 1."..K.|...8)K$.|
|00003b10| 24 4b e4 0f a1 41 24 3a | 8b 41 24 b2 22 22 a7 20 |$K...A$:|.A$."". |
|00003b20| 34 30 36 38 00 2e 4b e5 | 0f 89 20 34 30 30 00 44 |4068..K.|.. 400.D|
|00003b30| 4b e6 0f 99 22 93 22 3a | 99 a3 31 38 29 22 11 11 |K...".":|..18)"..|
|00003b40| 4c 4f 47 22 00 8d 4b e7 | 0f 99 a3 33 29 22 11 11 |LOG"..K.|...3)"..|
|00003b50| 11 4c 4f 47 28 58 29 20 | 52 45 54 55 52 4e 53 20 |.LOG(X) |RETURNS |
|00003b60| 54 48 45 20 4e 41 54 55 | 52 41 4c 20 4c 4f 47 20 |THE NATU|RAL LOG |
|00003b70| 54 4f 20 54 48 45 20 20 | 20 42 41 53 45 20 45 2e |TO THE  | BASE E.|
|00003b80| 20 54 48 45 20 56 41 4c | 55 45 20 22 3b 00 a4 4b | THE VAL|UE ";..K|
|00003b90| e8 0f 99 22 4f 46 20 45 | 3d 32 2e 37 31 38 32 38 |..."OF E|=2.71828|
|00003ba0| 31 38 33 22 00 ed 4b e9 | 0f 99 a3 33 29 22 11 49 |183"..K.|...3)".I|
|00003bb0| 46 20 58 3d 30 20 54 48 | 45 4e 20 41 4e 20 49 4c |F X=0 TH|EN AN IL|
|00003bc0| 4c 45 47 41 4c 20 51 55 | 41 54 49 54 59 20 45 52 |LEGAL QU|ATITY ER|
|00003bd0| 52 4f 52 20 20 20 20 4d | 45 53 53 41 47 45 20 49 |ROR    M|ESSAGE I|
|00003be0| 53 20 44 49 53 50 4c 41 | 59 45 44 2e 22 00 f8 4b |S DISPLA|YED."..K|
|00003bf0| ed 0f 99 a3 38 29 4b 24 | 00 0e 4c ee 0f a1 20 41 |....8)K$|..L... A|
|00003c00| 24 3a 8b 20 41 24 b2 22 | 22 a7 34 30 37 38 00 18 |$:. A$."|".4078..|
|00003c10| 4c ef 0f 89 20 34 30 30 | 00 55 4c f0 0f 99 22 93 |L... 400|.UL...".|
|00003c20| 22 3a 99 a3 31 38 29 22 | 11 11 52 4e 44 22 3a 99 |":..18)"|..RND":.|
|00003c30| a3 33 29 22 11 11 52 4e | 44 28 58 29 20 47 45 4e |.3)"..RN|D(X) GEN|
|00003c40| 45 52 41 54 45 53 20 41 | 4e 44 20 52 45 54 55 52 |ERATES A|ND RETUR|
|00003c50| 4e 53 20 22 3b 00 a1 4c | f1 0f 99 22 52 41 4e 44 |NS ";..L|..."RAND|
|00003c60| 4f 4d 20 20 20 20 20 4e | 55 4d 42 45 52 20 30 2e |OM     N|UMBER 0.|
|00003c70| 30 30 30 30 30 30 30 30 | 30 20 54 4f 20 2e 39 39 |00000000|0 TO .99|
|00003c80| 39 39 39 39 39 39 39 20 | 20 20 20 20 20 20 20 28 |9999999 |       (|
|00003c90| 45 51 55 41 4c 20 54 4f | 20 4f 52 20 3e 20 30 22 |EQUAL TO| OR > 0"|
|00003ca0| 3b 00 db 4c f2 0f 99 22 | 20 41 4e 44 20 3c 31 2e |;..L..."| AND <1.|
|00003cb0| 29 22 3a 99 a3 33 29 22 | 11 49 4e 54 28 52 4e 44 |)":..3)"|.INT(RND|
|00003cc0| 28 31 29 2a 28 4e 29 2b | 31 29 20 47 45 4e 45 52 |(1)*(N)+|1) GENER|
|00003cd0| 41 54 45 53 20 57 48 4f | 4c 45 22 00 00 4d f3 0f |ATES WHO|LE"..M..|
|00003ce0| 99 a3 33 29 22 4e 55 4d | 42 45 52 53 20 42 45 54 |..3)"NUM|BERS BET|
|00003cf0| 57 45 45 4e 20 31 20 41 | 4e 44 20 4e 2e 20 22 3b |WEEN 1 A|ND N. ";|
|00003d00| 00 34 4d f4 0f 99 22 4e | 20 49 53 20 55 50 50 45 |.4M..."N| IS UPPE|
|00003d10| 52 20 20 20 20 20 4c 49 | 4d 49 54 20 4f 46 20 54 |R     LI|MIT OF T|
|00003d20| 48 45 20 44 45 53 49 52 | 45 44 20 4e 55 4d 42 45 |HE DESIR|ED NUMBE|
|00003d30| 52 53 2e 22 00 3f 4d f7 | 0f 99 a3 38 29 4b 24 00 |RS.".?M.|...8)K$.|
|00003d40| 54 4d f8 0f a1 41 24 3a | 8b 20 41 24 b2 22 22 a7 |TM...A$:|. A$."".|
|00003d50| 34 30 38 38 00 5d 4d f9 | 0f 89 34 30 30 00 99 4d |4088.]M.|..400..M|
|00003d60| fa 0f 99 22 93 22 3a 99 | a3 31 38 29 22 11 11 53 |...".":.|.18)"..S|
|00003d70| 47 4e 22 3a 99 a3 33 29 | 22 11 11 44 45 54 45 52 |GN":..3)|"..DETER|
|00003d80| 4d 49 4e 45 53 20 57 48 | 45 54 48 45 52 20 41 20 |MINES WH|ETHER A |
|00003d90| 4e 55 4d 42 45 52 20 22 | 3b 00 c5 4d fb 0f 99 22 |NUMBER "|;..M..."|
|00003da0| 49 53 20 50 4f 53 49 2d | 20 20 20 20 54 49 56 45 |IS POSI-|    TIVE|
|00003db0| 2c 20 4e 45 47 41 54 49 | 56 45 2c 20 4f 52 20 5a |, NEGATI|VE, OR Z|
|00003dc0| 45 52 4f 2e 22 00 0a 4e | fc 0f 99 a3 33 29 22 11 |ERO."..N|....3)".|
|00003dd0| 53 47 4e 28 58 29 20 46 | 55 4e 43 54 49 4f 4e 20 |SGN(X) F|UNCTION |
|00003de0| 52 45 54 55 52 4e 53 20 | db 31 20 49 46 20 41 20 |RETURNS |.1 IF A |
|00003df0| 4e 55 4d 2d 20 20 20 20 | 42 45 52 20 49 53 20 50 |NUM-    |BER IS P|
|00003e00| 4f 53 49 54 49 56 45 20 | 22 3b 00 4e 4e fd 0f 99 |OSITIVE |";.NN...|
|00003e10| 22 4f 52 20 4e 4f 54 20 | 5a 45 52 4f 2c 20 30 20 |"OR NOT |ZERO, 0 |
|00003e20| 49 46 20 54 48 45 20 20 | 20 4e 55 4d 42 45 52 20 |IF THE  | NUMBER |
|00003e30| 49 53 20 30 2c 20 4f 52 | 20 2d 31 20 49 46 20 54 |IS 0, OR| -1 IF T|
|00003e40| 48 45 20 4e 55 4d 42 45 | 52 20 49 53 20 22 00 62 |HE NUMBE|R IS ".b|
|00003e50| 4e fe 0f 99 a3 33 29 22 | 4e 45 47 41 54 49 56 45 |N....3)"|NEGATIVE|
|00003e60| 2e 22 00 6d 4e 01 10 99 | a3 38 29 4b 24 00 82 4e |.".mN...|.8)K$..N|
|00003e70| 02 10 a1 20 41 24 3a 8b | 41 24 b2 22 22 a7 34 30 |... A$:.|A$."".40|
|00003e80| 39 38 00 8c 4e 03 10 89 | 20 34 30 30 00 cb 4e 04 |98..N...| 400..N.|
|00003e90| 10 99 22 93 22 3a 99 a3 | 31 38 29 22 11 11 53 49 |..".":..|18)"..SI|
|00003ea0| 4e 22 3a 99 a3 33 29 22 | 11 11 53 49 4e 28 58 29 |N":..3)"|..SIN(X)|
|00003eb0| 20 52 45 54 55 52 4e 53 | 20 54 48 45 20 53 49 4e | RETURNS| THE SIN|
|00003ec0| 45 20 4f 46 20 54 48 45 | 20 22 3b 00 fc 4e 05 10 |E OF THE| ";..N..|
|00003ed0| 99 22 41 4e 47 4c 45 20 | 20 20 20 58 20 57 48 49 |."ANGLE |   X WHI|
|00003ee0| 43 48 20 49 53 20 45 58 | 50 52 45 53 53 45 44 20 |CH IS EX|PRESSED |
|00003ef0| 49 4e 20 52 41 44 49 41 | 4e 53 2e 22 00 1d 4f 06 |IN RADIA|NS."..O.|
|00003f00| 10 99 a3 31 32 29 22 11 | 11 50 52 49 4e 54 20 53 |...12)".|.PRINT S|
|00003f10| 49 4e 28 39 30 2a ff 2f | 31 38 30 29 22 00 46 4f |IN(90*./|180)".FO|
|00003f20| 07 10 99 a3 36 29 22 11 | 28 44 49 53 50 4c 41 59 |....6)".|(DISPLAY|
|00003f30| 53 20 53 49 4e 45 20 4f | 46 20 39 30 20 44 45 47 |S SINE O|F 90 DEG|
|00003f40| 52 45 45 53 2e 29 00 51 | 4f 0b 10 99 a3 38 29 4b |REES.).Q|O....8)K|
|00003f50| 24 00 65 4f 0c 10 a1 41 | 24 3a 8b 41 24 b2 22 22 |$.eO...A|$:.A$.""|
|00003f60| a7 34 31 30 38 00 6f 4f | 0d 10 89 20 34 30 30 00 |.4108.oO|... 400.|
|00003f70| a9 4f 0e 10 99 22 93 22 | 3a 99 a3 31 38 29 22 11 |.O..."."|:..18)".|
|00003f80| 11 53 51 52 22 3a 99 a3 | 33 29 22 11 11 53 51 52 |.SQR":..|3)"..SQR|
|00003f90| 28 58 29 20 52 45 54 55 | 52 4e 53 20 54 48 45 20 |(X) RETU|RNS THE |
|00003fa0| 53 51 55 41 52 45 20 22 | 3b 00 dc 4f 0f 10 99 22 |SQUARE "|;..O..."|
|00003fb0| 52 4f 4f 54 20 4f 46 20 | 58 20 20 20 20 20 57 48 |ROOT OF |X     WH|
|00003fc0| 45 52 45 20 58 20 49 53 | 20 41 20 50 4f 53 49 54 |ERE X IS| A POSIT|
|00003fd0| 49 56 45 20 4e 55 4d 42 | 45 52 2e 22 00 1c 50 10 |IVE NUMB|ER."..P.|
|00003fe0| 10 99 a3 33 29 22 11 49 | 46 20 58 3d 4e 45 47 41 |...3)".I|F X=NEGA|
|00003ff0| 54 49 56 45 20 4e 55 4d | 42 45 52 20 41 4e 20 45 |TIVE NUM|BER AN E|
|00004000| 52 52 4f 52 20 4d 45 53 | 53 41 47 45 20 20 20 49 |RROR MES|SAGE   I|
|00004010| 53 20 52 45 54 55 52 4e | 45 44 2e 22 00 46 50 11 |S RETURN|ED.".FP.|
|00004020| 10 99 a3 31 34 29 22 11 | 31 30 20 42 3d 53 51 52 |...14)".|10 B=SQR|
|00004030| 28 39 29 22 3a 99 a3 31 | 34 29 22 32 30 20 50 52 |(9)":..1|4)"20 PR|
|00004040| 49 4e 54 20 42 22 00 6a | 50 12 10 99 a3 37 29 22 |INT B".j|P....7)"|
|00004050| 11 28 52 45 53 55 4c 54 | 53 20 49 4e 20 44 49 53 |.(RESULT|S IN DIS|
|00004060| 50 4c 41 59 20 4f 46 20 | 33 29 00 75 50 15 10 99 |PLAY OF |3).uP...|
|00004070| a3 38 29 4b 24 00 89 50 | 16 10 a1 41 24 3a 8b 41 |.8)K$..P|...A$:.A|
|00004080| 24 b2 22 22 a7 34 31 31 | 38 00 92 50 17 10 89 34 |$."".411|8..P...4|
|00004090| 30 30 00 a8 50 18 10 99 | 22 93 22 3a 99 a3 31 38 |00..P...|".":..18|
|000040a0| 29 22 11 11 54 41 4e 22 | 00 ec 50 19 10 99 a3 33 |)"..TAN"|..P....3|
|000040b0| 29 22 11 11 54 41 4e 28 | 58 29 20 52 45 54 55 52 |)"..TAN(|X) RETUR|
|000040c0| 4e 53 20 54 48 45 20 54 | 41 4e 47 45 4e 54 20 4f |NS THE T|ANGENT O|
|000040d0| 46 20 54 48 45 20 20 20 | 20 20 20 20 41 4e 47 4c |F THE   |    ANGL|
|000040e0| 45 20 58 20 57 48 49 43 | 48 20 22 3b 00 16 51 1a |E X WHIC|H ";..Q.|
|000040f0| 10 99 22 49 53 20 45 58 | 50 52 45 53 53 45 44 20 |.."IS EX|PRESSED |
|00004100| 49 4e 20 20 20 20 20 20 | 20 20 20 20 20 52 41 44 |IN      |     RAD|
|00004110| 49 41 4e 53 2e 22 00 35 | 51 1b 10 99 a3 31 32 29 |IANS.".5|Q....12)|
|00004120| 22 11 31 30 20 43 3d 54 | 41 4e 28 34 35 2a ff 2f |".10 C=T|AN(45*./|
|00004130| 31 38 30 29 22 00 4c 51 | 1c 10 99 a3 31 32 29 22 |180)".LQ|....12)"|
|00004140| 11 32 30 20 50 52 49 4e | 54 20 43 22 00 7c 51 1d |.20 PRIN|T C".|Q.|
|00004150| 10 99 a3 34 29 22 11 28 | 52 45 54 55 52 4e 53 20 |...4)".(|RETURNS |
|00004160| 54 41 4e 47 45 4e 54 20 | 4f 46 20 34 35 20 44 45 |TANGENT |OF 45 DE|
|00004170| 47 52 45 45 20 41 4e 47 | 4c 45 29 22 00 87 51 1f |GREE ANG|LE)"..Q.|
|00004180| 10 99 a3 38 29 4b 24 00 | 9d 51 20 10 a1 20 41 24 |...8)K$.|.Q .. A$|
|00004190| 3a 8b 20 41 24 b2 22 22 | a7 34 31 32 38 00 a7 51 |:. A$.""|.4128..Q|
|000041a0| 21 10 89 20 34 30 30 00 | c4 51 22 10 99 22 93 22 |!.. 400.|.Q".."."|
|000041b0| 3a 99 a3 31 34 29 22 11 | 11 54 49 20 2d 28 54 49 |:..14)".|.TI -(TI|
|000041c0| 4d 45 29 22 00 09 52 23 | 10 99 a3 33 29 22 11 52 |ME)"..R#|...3)".R|
|000041d0| 45 54 55 52 4e 53 20 4e | 55 4d 42 45 52 20 4f 46 |ETURNS N|UMBER OF|
|000041e0| 20 4a 49 46 46 49 45 53 | 20 53 49 4e 43 45 20 54 | JIFFIES| SINCE T|
|000041f0| 48 45 20 20 20 20 20 43 | 55 52 52 45 4e 54 20 53 |HE     C|URRENT S|
|00004200| 54 41 52 54 20 55 50 22 | 3b 00 41 52 24 10 99 22 |TART UP"|;.AR$.."|
|00004210| 20 4f 52 20 52 45 53 45 | 54 2e 22 3a 99 a3 33 29 | OR RESE|T.":..3)|
|00004220| 22 11 54 49 24 20 49 53 | 20 54 48 45 20 54 49 4d |".TI$ IS| THE TIM|
|00004230| 45 20 4f 46 20 44 41 59 | 20 53 54 52 49 4e 47 2e |E OF DAY| STRING.|
|00004240| 22 00 66 52 25 10 99 a3 | 31 33 29 22 11 54 49 24 |".fR%...|13)".TI$|
|00004250| 3d 22 c7 28 33 34 29 aa | 22 30 30 30 30 30 30 22 |=".(34).|"000000"|
|00004260| aa c7 28 33 34 29 00 71 | 52 29 10 99 a3 38 29 4b |..(34).q|R)...8)K|
|00004270| 24 00 85 52 2a 10 a1 41 | 24 3a 8b 41 24 b2 22 22 |$..R*..A|$:.A$.""|
|00004280| a7 34 31 33 38 00 8f 52 | 2b 10 89 20 34 30 30 00 |.4138..R|+.. 400.|
|00004290| cd 52 2c 10 99 22 93 22 | 3a 99 a3 31 38 29 22 11 |.R,.."."|:..18)".|
|000042a0| 11 56 41 4c 22 3a 99 a3 | 33 29 22 11 11 56 41 4c |.VAL":..|3)"..VAL|
|000042b0| 28 58 24 29 20 52 45 54 | 55 52 4e 53 20 54 48 45 |(X$) RET|URNS THE|
|000042c0| 20 4e 55 4d 45 52 49 43 | 41 4c 20 22 3b 00 f6 52 | NUMERIC|AL ";..R|
|000042d0| 2d 10 99 22 45 51 55 49 | 56 2d 20 20 20 20 41 4c |-.."EQUI|V-    AL|
|000042e0| 45 4e 54 20 4f 46 20 54 | 48 45 20 53 54 52 49 4e |ENT OF T|HE STRIN|
|000042f0| 47 20 58 24 2e 22 00 37 | 53 2e 10 99 a3 33 29 22 |G X$.".7|S....3)"|
|00004300| 11 54 48 45 20 4e 55 4d | 42 45 52 20 4d 41 59 20 |.THE NUM|BER MAY |
|00004310| 42 45 20 55 53 45 44 20 | 49 4e 20 41 52 49 54 48 |BE USED |IN ARITH|
|00004320| 4d 45 54 49 43 20 20 20 | 20 43 41 4c 43 55 4c 41 |METIC   | CALCULA|
|00004330| 54 49 4f 4e 53 2e 22 00 | 7b 53 2f 10 99 a3 33 29 |TIONS.".|{S/...3)|
|00004340| 22 11 56 41 4c 20 46 49 | 52 53 54 20 44 49 53 43 |".VAL FI|RST DISC|
|00004350| 41 52 44 53 20 41 4e 59 | 20 4c 45 41 44 49 4e 47 |ARDS ANY| LEADING|
|00004360| 20 20 20 20 20 20 20 20 | 20 20 42 4c 41 4e 4b 53 |        |  BLANKS|
|00004370| 2e 20 49 46 20 54 48 45 | 20 22 3b 00 c6 53 30 10 |. IF THE| ";..S0.|
|00004380| 99 22 46 49 52 53 54 20 | 4e 4f 4e 20 42 4c 41 4e |."FIRST |NON BLAN|
|00004390| 4b 20 43 48 41 52 2d 20 | 20 20 20 41 43 54 45 52 |K CHAR- |   ACTER|
|000043a0| 20 49 53 20 4e 4f 54 20 | 41 20 44 49 47 49 54 2c | IS NOT |A DIGIT,|
|000043b0| 20 56 41 4c 20 52 45 54 | 55 52 4e 53 20 41 20 20 | VAL RET|URNS A  |
|000043c0| 20 20 20 30 2e 22 00 04 | 54 31 10 99 a3 33 29 22 |   0."..|T1...3)"|
|000043d0| 11 49 46 20 46 49 52 53 | 54 20 4e 4f 4e 20 42 4c |.IF FIRS|T NON BL|
|000043e0| 41 4e 4b 20 49 53 20 41 | 20 44 49 47 49 54 2c 20 |ANK IS A| DIGIT, |
|000043f0| 56 41 4c 20 20 20 20 20 | 20 43 4f 4e 56 45 52 54 |VAL     | CONVERT|
|00004400| 53 20 22 3b 00 30 54 32 | 10 99 22 54 48 45 20 53 |S ";.0T2|.."THE S|
|00004410| 54 52 49 4e 47 20 49 4e | 54 4f 20 52 45 41 4c 20 |TRING IN|TO REAL |
|00004420| 4e 55 4d 2d 20 20 20 20 | 20 20 42 45 52 53 2e 22 |NUM-    |  BERS."|
|00004430| 00 3b 54 33 10 99 a3 38 | 29 4b 24 00 4f 54 34 10 |.;T3...8|)K$.OT4.|
|00004440| a1 41 24 3a 8b 41 24 b2 | 22 22 a7 34 31 34 38 00 |.A$:.A$.|"".4148.|
|00004450| 59 54 35 10 89 20 34 30 | 30 00 95 54 92 13 99 22 |YT5.. 40|0..T..."|
|00004460| 93 22 3a 99 a3 31 36 29 | 22 11 11 43 4c 4f 53 45 |.":..16)|"..CLOSE|
|00004470| 22 3a 99 a3 33 29 22 11 | 41 46 54 45 52 20 46 49 |":..3)".|AFTER FI|
|00004480| 4c 45 20 41 43 43 45 53 | 53 20 48 41 53 20 42 45 |LE ACCES|S HAS BE|
|00004490| 45 4e 20 22 3b 00 d7 54 | 93 13 99 22 43 4f 4d 50 |EN ";..T|..."COMP|
|000044a0| 4c 45 54 45 44 2c 20 20 | 20 43 4c 4f 53 45 20 53 |LETED,  | CLOSE S|
|000044b0| 54 41 54 45 4d 45 4e 54 | 20 53 48 55 54 53 20 4f |TATEMENT| SHUTS O|
|000044c0| 46 46 20 54 48 45 20 44 | 41 54 41 20 20 20 20 20 |FF THE D|ATA     |
|000044d0| 20 46 49 4c 45 2e 22 00 | 1d 55 94 13 99 a3 33 29 | FILE.".|.U....3)|
|000044e0| 22 11 41 4e 20 4f 50 45 | 4e 20 43 48 41 4e 4e 45 |".AN OPE|N CHANNE|
|000044f0| 4c 20 54 4f 20 44 45 56 | 49 43 45 20 28 44 2d 44 |L TO DEV|ICE (D-D|
|00004500| 52 2f 50 52 54 52 29 20 | 20 20 53 48 4f 55 4c 44 |R/PRTR) |  SHOULD|
|00004510| 20 42 45 20 43 4c 4f 53 | 45 44 20 22 3b 00 62 55 | BE CLOS|ED ";.bU|
|00004520| 95 13 99 22 57 48 45 4e | 20 41 43 43 45 53 53 20 |..."WHEN| ACCESS |
|00004530| 49 53 20 43 4f 4d 50 2d | 20 20 20 4c 45 54 45 44 |IS COMP-|   LETED|
|00004540| 2e 22 3a 99 a3 33 29 22 | 11 54 48 45 20 46 49 4c |.":..3)"|.THE FIL|
|00004550| 45 20 4e 55 4d 42 45 52 | 20 43 4c 4f 53 45 44 20 |E NUMBER| CLOSED |
|00004560| 22 3b 00 a6 55 96 13 99 | 22 53 48 4f 55 4c 44 20 |";..U...|"SHOULD |
|00004570| 42 45 20 54 48 45 20 20 | 20 20 53 41 4d 45 20 41 |BE THE  |  SAME A|
|00004580| 53 20 4e 55 4d 42 45 52 | 20 4f 50 45 4e 45 44 2e |S NUMBER| OPENED.|
|00004590| 22 3a 99 a3 31 32 29 22 | 11 31 30 20 50 52 49 4e |":..12)"|.10 PRIN|
|000045a0| 54 23 34 3a 22 3b 00 dc | 55 97 13 99 22 43 4c 4f |T#4:";..|U..."CLO|
|000045b0| 53 45 34 22 3a 99 a3 34 | 29 22 11 28 54 48 49 53 |SE4":..4|)".(THIS|
|000045c0| 20 43 4c 4f 53 45 53 20 | 43 48 41 4e 4e 45 4c 20 | CLOSES |CHANNEL |
|000045d0| 54 4f 20 50 52 49 4e 54 | 45 52 29 22 00 e7 55 99 |TO PRINT|ER)"..U.|
|000045e0| 13 99 a3 38 29 4b 24 00 | fb 55 9a 13 a1 41 24 3a |...8)K$.|.U...A$:|
|000045f0| 8b 41 24 b2 22 22 a7 35 | 30 31 38 00 04 56 9b 13 |.A$."".5|018..V..|
|00004600| 89 35 30 30 00 45 56 9c | 13 99 22 93 22 3a 99 a3 |.500.EV.|..".":..|
|00004610| 31 38 29 22 11 43 4d 44 | 22 3a 99 a3 33 29 22 11 |18)".CMD|":..3)".|
|00004620| 54 48 49 53 20 53 54 41 | 54 45 4d 45 4e 54 20 43 |THIS STA|TEMENT C|
|00004630| 4f 4e 56 45 52 54 53 20 | 50 52 49 4d 41 52 59 20 |ONVERTS |PRIMARY |
|00004640| 44 45 56 2d 22 00 75 56 | 9d 13 99 a3 33 29 22 49 |DEV-".uV|....3)"I|
|00004650| 43 45 20 46 52 4f 4d 20 | 4d 4f 4e 49 54 4f 52 20 |CE FROM |MONITOR |
|00004660| 54 4f 20 44 45 56 49 43 | 45 20 53 50 45 43 49 46 |TO DEVIC|E SPECIF|
|00004670| 49 45 44 2e 22 00 bb 56 | 9e 13 99 a3 33 29 22 11 |IED."..V|....3)".|
|00004680| 54 48 45 20 46 49 4c 45 | 20 4e 55 4d 42 45 52 20 |THE FILE| NUMBER |
|00004690| 4d 55 53 54 20 42 45 20 | 53 50 45 43 49 46 49 45 |MUST BE |SPECIFIE|
|000046a0| 44 20 49 4e 20 20 20 20 | 41 4e 20 4f 50 45 4e 20 |D IN    |AN OPEN |
|000046b0| 53 54 41 54 45 4d 45 4e | 54 2e 22 00 07 57 9f 13 |STATEMEN|T."..W..|
|000046c0| 99 a3 33 29 22 11 57 48 | 45 4e 20 43 4d 44 20 49 |..3)".WH|EN CMD I|
|000046d0| 53 20 49 4e 20 45 46 46 | 45 43 54 2c 20 50 52 49 |S IN EFF|ECT, PRI|
|000046e0| 4e 54 20 53 54 41 54 45 | 2d 20 20 20 20 20 4d 45 |NT STATE|-     ME|
|000046f0| 4e 54 53 20 41 4e 44 20 | 4c 49 53 54 20 43 4f 4d |NTS AND |LIST COM|
|00004700| 4d 41 4e 44 20 22 3b 00 | 47 57 a0 13 99 22 57 49 |MAND ";.|GW..."WI|
|00004710| 4c 4c 20 4e 4f 54 20 44 | 49 53 2d 20 20 20 20 50 |LL NOT D|IS-    P|
|00004720| 4c 41 59 20 4f 4e 20 54 | 48 45 20 53 43 52 45 45 |LAY ON T|HE SCREE|
|00004730| 4e 2e 22 3a 99 a3 33 29 | 22 11 43 4d 44 20 43 41 |N.":..3)|".CMD CA|
|00004740| 4e 20 42 45 20 22 3b 00 | 8b 57 a1 13 99 22 55 53 |N BE ";.|.W..."US|
|00004750| 45 44 20 49 4e 20 44 49 | 52 45 43 54 20 50 52 4f |ED IN DI|RECT PRO|
|00004760| 47 52 41 4d 20 20 20 20 | 20 20 20 4d 4f 44 45 2e |GRAM    |   MODE.|
|00004770| 22 3a 99 a3 31 31 29 22 | 11 4f 50 45 4e 34 2c 34 |":..11)"|.OPEN4,4|
|00004780| 3a 43 4d 44 34 3a 4c 49 | 53 54 22 00 ba 57 a2 13 |:CMD4:LI|ST"..W..|
|00004790| 99 a3 33 29 22 11 28 50 | 52 49 4e 54 53 20 50 52 |..3)".(P|RINTS PR|
|000047a0| 4f 47 52 41 4d 20 4c 49 | 53 54 49 4e 47 20 4f 4e |OGRAM LI|STING ON|
|000047b0| 20 50 52 49 4e 54 45 52 | 29 22 00 c8 57 a3 13 99 | PRINTER|)"..W...|
|000047c0| a3 38 29 22 91 22 4b 24 | 00 dd 57 a4 13 a1 41 24 |.8)"."K$|..W...A$|
|000047d0| 3a 8b 20 41 24 b2 22 22 | a7 35 30 32 38 00 e7 57 |:. A$.""|.5028..W|
|000047e0| a5 13 89 20 35 30 30 00 | 24 58 a6 13 99 22 93 22 |... 500.|$X..."."|
|000047f0| 3a 99 a3 31 38 29 22 11 | 47 45 54 23 22 3a 99 a3 |:..18)".|GET#":..|
|00004800| 33 29 22 11 54 48 49 53 | 20 53 54 41 54 45 4d 45 |3)".THIS| STATEME|
|00004810| 4e 54 20 27 47 45 54 53 | 27 20 41 20 53 49 4e 47 |NT 'GETS|' A SING|
|00004820| 4c 45 22 3b 00 73 58 a7 | 13 99 22 20 43 48 41 52 |LE";.sX.|.." CHAR|
|00004830| 2d 20 20 20 20 41 43 54 | 45 52 20 46 52 4f 4d 20 |-    ACT|ER FROM |
|00004840| 41 4e 20 45 58 54 45 52 | 4e 41 4c 20 53 54 4f 52 |AN EXTER|NAL STOR|
|00004850| 41 47 45 20 44 45 56 2d | 20 20 20 20 20 49 43 45 |AGE DEV-|     ICE|
|00004860| 2e 20 54 48 49 53 20 43 | 48 41 52 41 43 54 45 52 |. THIS C|HARACTER|
|00004870| 20 22 3b 00 b8 58 a8 13 | 99 22 49 53 20 41 53 53 | ";..X..|."IS ASS|
|00004880| 49 47 4e 45 44 20 54 4f | 20 20 20 20 20 20 56 41 |IGNED TO|      VA|
|00004890| 52 49 41 42 4c 45 2e 22 | 3a 99 a3 33 29 22 11 54 |RIABLE."|:..3)".T|
|000048a0| 48 45 20 46 49 4c 45 20 | 4e 55 4d 42 45 52 20 55 |HE FILE |NUMBER U|
|000048b0| 53 45 44 20 54 4f 22 3b | 00 ed 58 a9 13 99 22 20 |SED TO";|..X..." |
|000048c0| 49 44 45 4e 54 49 46 59 | 20 54 48 45 20 20 20 20 |IDENTIFY| THE    |
|000048d0| 45 58 54 45 52 4e 41 4c | 20 44 45 56 49 43 45 20 |EXTERNAL| DEVICE |
|000048e0| 4d 55 53 54 20 48 41 56 | 45 20 42 22 3b 00 25 59 |MUST HAV|E B";.%Y|
|000048f0| aa 13 99 22 45 45 4e 20 | 50 52 4f 50 2d 20 20 20 |..."EEN |PROP-   |
|00004900| 20 45 52 4c 59 20 4f 50 | 45 4e 45 44 20 57 49 54 | ERLY OP|ENED WIT|
|00004910| 48 20 41 4e 20 4f 50 45 | 4e 20 53 54 41 54 45 4d |H AN OPE|N STATEM|
|00004920| 45 4e 54 2e 22 00 46 59 | ab 13 99 a3 31 30 29 22 |ENT.".FY|....10)"|
|00004930| 11 32 30 20 4f 50 45 4e | 20 31 2c 33 3a 47 45 54 |.20 OPEN| 1,3:GET|
|00004940| 23 31 2c 41 24 22 00 7f | 59 ac 13 99 a3 33 29 22 |#1,A$"..|Y....3)"|
|00004950| 11 47 45 54 23 20 4d 55 | 53 54 20 42 45 20 55 53 |.GET# MU|ST BE US|
|00004960| 45 44 20 49 4e 20 50 52 | 4f 47 52 41 4d 20 4d 4f |ED IN PR|OGRAM MO|
|00004970| 44 45 20 20 20 20 20 20 | 20 4f 4e 4c 59 2e 22 00 |DE      | ONLY.".|
|00004980| 8a 59 ad 13 99 a3 38 29 | 4b 24 00 9e 59 ae 13 a1 |.Y....8)|K$..Y...|
|00004990| 41 24 3a 8b 41 24 b2 22 | 22 a7 35 30 33 38 00 a7 |A$:.A$."|".5038..|
|000049a0| 59 af 13 89 35 30 30 00 | e9 59 b0 13 99 22 93 22 |Y...500.|.Y..."."|
|000049b0| 3a 99 a3 31 36 29 22 11 | 49 4e 50 55 54 23 22 3a |:..16)".|INPUT#":|
|000049c0| 99 a3 33 29 22 11 54 48 | 49 53 20 53 54 41 54 45 |..3)".TH|IS STATE|
|000049d0| 4d 45 4e 54 20 49 4e 50 | 55 54 53 20 44 41 54 41 |MENT INP|UTS DATA|
|000049e0| 20 46 52 4f 4d 20 41 4e | 22 00 29 5a b1 13 99 a3 | FROM AN|".)Z....|
|000049f0| 33 29 22 45 58 54 45 52 | 4e 41 4c 20 44 45 56 49 |3)"EXTER|NAL DEVI|
|00004a00| 43 45 20 41 4e 44 20 41 | 53 53 49 47 4e 53 20 44 |CE AND A|SSIGNS D|
|00004a10| 41 54 41 20 20 20 20 20 | 20 20 20 54 4f 20 56 41 |ATA     |   TO VA|
|00004a20| 52 49 41 42 4c 45 53 2e | 22 00 75 5a b2 13 99 a3 |RIABLES.|".uZ....|
|00004a30| 33 29 22 11 49 4e 50 55 | 54 20 41 4e 44 20 49 4e |3)".INPU|T AND IN|
|00004a40| 50 55 54 23 20 57 4f 52 | 4b 20 49 44 45 4e 54 49 |PUT# WOR|K IDENTI|
|00004a50| 43 41 4c 4c 59 20 20 20 | 20 20 20 20 45 58 43 45 |CALLY   |    EXCE|
|00004a60| 50 54 20 49 4e 50 55 54 | 23 20 52 45 43 45 49 56 |PT INPUT|# RECEIV|
|00004a70| 45 53 20 22 3b 00 95 5a | b3 13 99 22 49 54 53 20 |ES ";..Z|..."ITS |
|00004a80| 49 4e 50 55 54 20 46 52 | 4f 4d 20 20 20 41 20 46 |INPUT FR|OM   A F|
|00004a90| 49 4c 45 2e 22 00 ce 5a | b4 13 99 a3 33 29 22 11 |ILE."..Z|....3)".|
|00004aa0| 49 4e 50 55 54 23 20 4d | 55 53 54 20 42 45 20 55 |INPUT# M|UST BE U|
|00004ab0| 53 45 44 20 49 4e 20 50 | 52 4f 47 52 41 4d 20 4d |SED IN P|ROGRAM M|
|00004ac0| 4f 44 45 20 20 20 20 20 | 4f 4e 4c 59 2e 22 00 d9 |ODE     |ONLY."..|
|00004ad0| 5a b7 13 99 a3 38 29 4b | 24 00 ee 5a b8 13 a1 41 |Z....8)K|$..Z...A|
|00004ae0| 24 3a 8b 20 41 24 b2 22 | 22 a7 35 30 34 38 00 f7 |$:. A$."|".5048..|
|00004af0| 5a b9 13 89 35 30 30 00 | 3a 5b ba 13 99 22 93 22 |Z...500.|:[..."."|
|00004b00| 3a 99 a3 31 38 29 22 11 | 4f 50 45 4e 22 3a 99 a3 |:..18)".|OPEN":..|
|00004b10| 33 29 22 11 54 48 49 53 | 20 53 54 41 54 45 4d 45 |3)".THIS| STATEME|
|00004b20| 4e 54 20 4f 50 45 4e 53 | 20 41 20 46 49 4c 45 20 |NT OPENS| A FILE |
|00004b30| 41 4e 44 20 4d 41 4b 45 | 53 22 00 77 5b bb 13 99 |AND MAKE|S".w[...|
|00004b40| a3 33 29 22 91 54 48 45 | 20 41 53 53 49 47 4e 45 |.3)".THE| ASSIGNE|
|00004b50| 44 20 44 45 56 49 43 45 | 20 52 45 41 44 59 20 54 |D DEVICE| READY T|
|00004b60| 4f 20 47 49 56 45 20 4f | 52 20 20 20 20 52 45 43 |O GIVE O|R    REC|
|00004b70| 45 49 56 45 20 22 3b 00 | b9 5b bc 13 99 22 44 41 |EIVE ";.|.[..."DA|
|00004b80| 54 41 2e 22 3a 99 a3 33 | 29 22 11 4f 50 45 4e 20 |TA.":..3|)".OPEN |
|00004b90| 57 49 54 48 20 4e 4f 20 | 44 45 56 49 43 45 20 4e |WITH NO |DEVICE N|
|00004ba0| 4f 2e 20 53 45 4c 45 43 | 54 53 20 54 41 50 45 20 |O. SELEC|TS TAPE |
|00004bb0| 20 20 20 55 4e 49 54 2e | 22 00 f8 5b bd 13 99 a3 |   UNIT.|"..[....|
|00004bc0| 32 29 22 11 4f 50 45 4e | 20 5b 46 49 4c 45 5d 2c |2)".OPEN| [FILE],|
|00004bd0| 5b 44 45 56 2e 5d 2c 5b | 53 45 43 20 41 44 44 5d |[DEV.],[|SEC ADD]|
|00004be0| 2c 5b 22 c7 28 33 34 29 | aa 22 4e 41 4d 45 22 c7 |,[".(34)|."NAME".|
|00004bf0| 28 33 34 29 aa 22 5d 22 | 00 3e 5c be 13 99 a3 33 |(34)."]"|.>\....3|
|00004c00| 29 22 11 53 45 43 4f 4e | 44 41 52 59 20 41 44 44 |)".SECON|DARY ADD|
|00004c10| 3d 20 30 20 49 4e 44 49 | 43 41 54 45 53 20 52 45 |= 0 INDI|CATES RE|
|00004c20| 41 44 20 4f 4e 4c 59 22 | 3a 99 a3 31 36 29 22 3d |AD ONLY"|:..16)"=|
|00004c30| 20 31 20 49 4e 44 49 43 | 41 54 45 53 22 3b 00 8a | 1 INDIC|ATES";..|
|00004c40| 5c bf 13 99 22 20 4f 50 | 45 4e 45 44 20 54 4f 20 |\..." OP|ENED TO |
|00004c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c60| 20 20 20 20 57 52 49 54 | 45 22 3a 99 a3 31 36 29 |    WRIT|E":..16)|
|00004c70| 22 3d 20 32 20 49 4e 44 | 49 43 41 54 45 53 20 57 |"= 2 IND|ICATES W|
|00004c80| 52 49 54 45 20 57 49 54 | 48 22 00 a8 5c c0 13 99 |RITE WIT|H"..\...|
|00004c90| a3 32 30 29 22 91 45 4e | 44 20 4f 46 20 54 41 50 |.20)".EN|D OF TAP|
|00004ca0| 45 20 4d 41 52 4b 2e 22 | 00 b3 5c c1 13 99 a3 38 |E MARK."|..\....8|
|00004cb0| 29 4b 24 00 c8 5c c2 13 | a1 20 41 24 3a 8b 41 24 |)K$..\..|. A$:.A$|
|00004cc0| b2 22 22 a7 35 30 35 38 | 00 d1 5c c3 13 89 35 30 |."".5058|..\...50|
|00004cd0| 30 00 15 5d c4 13 99 22 | 93 22 3a 99 a3 31 36 29 |0..]..."|.":..16)|
|00004ce0| 22 11 50 52 49 4e 54 23 | 22 3a 99 a3 33 29 22 11 |".PRINT#|":..3)".|
|00004cf0| 54 48 45 20 50 52 49 4e | 54 20 45 58 54 45 52 4e |THE PRIN|T EXTERN|
|00004d00| 41 4c 20 53 54 41 54 45 | 4d 45 4e 54 20 4f 55 54 |AL STATE|MENT OUT|
|00004d10| 50 55 54 53 22 00 45 5d | c5 13 99 a3 33 29 22 4f |PUTS".E]|....3)"O|
|00004d20| 4e 45 20 4f 52 20 4d 4f | 52 45 20 44 41 54 41 20 |NE OR MO|RE DATA |
|00004d30| 49 54 45 4d 53 20 54 4f | 20 41 4e 20 45 58 54 45 |ITEMS TO| AN EXTE|
|00004d40| 52 4e 41 4c 22 00 81 5d | c6 13 99 a3 33 29 22 91 |RNAL"..]|....3)".|
|00004d50| 44 45 56 49 43 45 2c 20 | 53 55 43 48 20 41 53 20 |DEVICE, |SUCH AS |
|00004d60| 54 48 45 20 44 49 53 4b | 20 44 52 49 56 45 20 4f |THE DISK| DRIVE O|
|00004d70| 52 20 20 20 20 20 20 20 | 50 52 49 4e 54 45 52 2e |R       |PRINTER.|
|00004d80| 22 00 c7 5d c7 13 99 a3 | 33 29 22 11 54 48 45 20 |"..]....|3)".THE |
|00004d90| 4f 55 54 50 55 54 20 47 | 4f 45 53 20 54 4f 20 54 |OUTPUT G|OES TO T|
|00004da0| 48 45 20 44 45 56 49 43 | 45 20 4e 55 4d 42 45 52 |HE DEVIC|E NUMBER|
|00004db0| 20 20 20 20 55 53 45 44 | 20 49 4e 20 54 48 45 20 |    USED| IN THE |
|00004dc0| 4f 50 45 4e 20 22 3b 00 | d9 5d c8 13 99 22 53 54 |OPEN ";.|.]..."ST|
|00004dd0| 41 54 45 4d 45 4e 54 2e | 22 00 e4 5d cb 13 99 a3 |ATEMENT.|"..]....|
|00004de0| 38 29 4b 24 00 f8 5d cc | 13 a1 41 24 3a 8b 41 24 |8)K$..].|..A$:.A$|
|00004df0| b2 22 22 a7 35 30 36 38 | 00 01 5e cd 13 89 35 30 |."".5068|..^...50|
|00004e00| 30 00 43 5e ce 13 99 22 | 93 22 3a 99 a3 31 36 29 |0.C^..."|.":..16)|
|00004e10| 22 11 53 54 41 54 55 53 | 22 3a 99 a3 33 29 22 11 |".STATUS|":..3)".|
|00004e20| 54 48 49 53 20 56 41 52 | 49 41 42 4c 45 20 49 4e |THIS VAR|IABLE IN|
|00004e30| 44 49 43 41 54 45 53 20 | 54 48 45 20 53 54 41 54 |DICATES |THE STAT|
|00004e40| 55 53 22 00 7e 5e cf 13 | 99 a3 33 29 22 4f 46 20 |US".~^..|..3)"OF |
|00004e50| 54 48 45 20 45 58 54 45 | 52 4e 41 4c 20 44 45 56 |THE EXTE|RNAL DEV|
|00004e60| 49 43 45 53 20 43 4f 4e | 4e 45 43 54 45 44 20 54 |ICES CON|NECTED T|
|00004e70| 4f 20 20 20 20 59 4f 55 | 52 20 2b 34 2e 22 00 ca |O    YOU|R +4."..|
|00004e80| 5e d0 13 99 a3 33 29 22 | 11 53 54 20 56 41 4c 55 |^....3)"|.ST VALU|
|00004e90| 45 20 4f 46 20 36 34 20 | 49 4e 44 49 43 41 54 45 |E OF 64 |INDICATE|
|00004ea0| 53 20 45 4e 44 20 4f 46 | 20 46 49 4c 45 20 20 20 |S END OF| FILE   |
|00004eb0| 20 46 4f 52 20 54 41 50 | 45 20 41 4e 44 20 44 49 | FOR TAP|E AND DI|
|00004ec0| 53 4b 20 44 52 49 56 45 | 2e 22 00 11 5f d1 13 99 |SK DRIVE|.".._...|
|00004ed0| a3 33 29 22 53 54 20 56 | 41 4c 55 45 20 4f 46 20 |.3)"ST V|ALUE OF |
|00004ee0| 2d 31 32 38 20 4d 45 41 | 4e 53 20 45 4e 44 20 4f |-128 MEA|NS END O|
|00004ef0| 46 20 54 41 50 45 20 20 | 20 20 20 20 45 4e 43 4f |F TAPE  |    ENCO|
|00004f00| 55 4e 54 45 52 45 44 20 | 4f 52 20 44 49 53 4b 22 |UNTERED |OR DISK"|
|00004f10| 3b 00 51 5f d2 13 99 22 | 20 44 52 49 56 45 20 4e |;.Q_..."| DRIVE N|
|00004f20| 4f 54 20 50 52 45 53 45 | 4e 54 22 3a 99 a3 33 29 |OT PRESE|NT":..3)|
|00004f30| 22 11 53 54 41 54 55 53 | 20 49 53 20 54 48 45 20 |".STATUS| IS THE |
|00004f40| 53 59 53 54 45 4d 20 44 | 45 46 49 4e 45 44 20 22 |SYSTEM D|EFINED "|
|00004f50| 3b 00 9c 5f d3 13 99 22 | 56 41 52 49 41 42 4c 45 |;.._..."|VARIABLE|
|00004f60| 20 20 20 49 4e 54 4f 20 | 57 48 49 43 48 20 54 48 |   INTO |WHICH TH|
|00004f70| 45 20 4b 45 52 4e 41 4c | 20 50 55 54 53 20 53 54 |E KERNAL| PUTS ST|
|00004f80| 41 54 55 53 20 4f 46 20 | 20 20 20 49 2f 4f 20 4f |ATUS OF |   I/O O|
|00004f90| 50 45 52 41 54 49 4f 4e | 53 2e 22 3b 00 d7 5f d4 |PERATION|S.";.._.|
|00004fa0| 13 99 22 20 53 45 45 20 | 50 52 4f 47 2e 20 52 45 |.." SEE |PROG. RE|
|00004fb0| 46 2e 20 47 55 49 44 45 | 20 20 20 20 46 4f 52 20 |F. GUIDE|    FOR |
|00004fc0| 54 41 42 4c 45 20 4f 46 | 20 53 54 41 54 55 53 20 |TABLE OF| STATUS |
|00004fd0| 43 4f 44 45 53 2e 22 00 | e2 5f d5 13 99 a3 38 29 |CODES.".|._....8)|
|00004fe0| 4b 24 00 f6 5f d6 13 a1 | 41 24 3a 8b 41 24 b2 22 |K$.._...|A$:.A$."|
|00004ff0| 22 a7 35 30 37 38 00 ff | 5f d7 13 89 35 30 30 00 |".5078..|_...500.|
|00005000| 38 60 7a 17 99 22 93 22 | 3a 99 a3 31 38 29 22 11 |8`z.."."|:..18)".|
|00005010| 43 4c 52 22 3a 99 a3 33 | 29 22 11 54 48 49 53 20 |CLR":..3|)".THIS |
|00005020| 53 54 41 54 45 4d 45 4e | 54 20 45 52 41 53 45 53 |STATEMEN|T ERASES|
|00005030| 20 46 52 4f 4d 20 22 3b | 00 87 60 7b 17 99 22 4d | FROM ";|..`{.."M|
|00005040| 45 4d 4f 52 59 20 41 4c | 4c 20 20 20 56 41 52 49 |EMORY AL|L   VARI|
|00005050| 41 42 4c 45 53 2c 20 41 | 52 52 41 59 53 2c 20 47 |ABLES, A|RRAYS, G|
|00005060| 4f 53 55 42 20 41 44 44 | 52 45 53 53 45 53 2c 20 |OSUB ADD|RESSES, |
|00005070| 20 20 20 20 46 4f 52 2e | 2e 2e 4e 45 58 54 20 4c |    FOR.|..NEXT L|
|00005080| 4f 4f 50 53 2c 22 3b 00 | ac 60 7c 17 99 22 20 55 |OOPS,";.|.`|.." U|
|00005090| 53 45 52 20 44 45 46 49 | 4e 45 44 20 46 55 4e 43 |SER DEFI|NED FUNC|
|000050a0| 54 2d 20 20 20 49 4f 4e | 53 20 22 3b 00 ee 60 7d |T-   ION|S ";..`}|
|000050b0| 17 99 22 41 4e 44 20 46 | 49 4c 45 53 2e 22 3a 99 |.."AND F|ILES.":.|
|000050c0| a3 33 29 22 11 41 4e 59 | 20 42 41 53 49 43 20 50 |.3)".ANY| BASIC P|
|000050d0| 52 4f 47 52 41 4d 20 49 | 4e 20 4d 45 4d 4f 52 59 |ROGRAM I|N MEMORY|
|000050e0| 20 49 53 20 4e 4f 54 20 | 20 20 20 20 22 3b 00 2e | IS NOT |    ";..|
|000050f0| 61 7e 17 99 22 20 41 46 | 46 45 43 54 45 44 2e 22 |a~.." AF|FECTED."|
|00005100| 3a 99 a3 33 29 22 11 54 | 48 49 53 20 53 54 41 54 |:..3)".T|HIS STAT|
|00005110| 45 4d 45 4e 54 20 57 49 | 4c 4c 20 41 4c 53 4f 20 |EMENT WI|LL ALSO |
|00005120| 55 4e 44 49 4d 45 4e 53 | 49 4f 4e 20 22 3b 00 6a |UNDIMENS|ION ";.j|
|00005130| 61 7f 17 99 22 20 20 20 | 41 4c 4c 20 41 52 52 41 |a..."   |ALL ARRA|
|00005140| 59 53 2e 20 41 52 52 41 | 59 20 53 50 41 43 45 20 |YS. ARRA|Y SPACE |
|00005150| 49 4e 20 4d 45 4d 4f 52 | 59 20 49 53 20 20 20 20 |IN MEMOR|Y IS    |
|00005160| 52 45 4c 45 41 53 45 44 | 2e 22 00 75 61 81 17 99 |RELEASED|.".ua...|
|00005170| a3 38 29 4b 24 00 89 61 | 82 17 a1 41 24 3a 8b 41 |.8)K$..a|...A$:.A|
|00005180| 24 b2 22 22 a7 36 30 31 | 38 00 92 61 83 17 89 36 |$."".601|8..a...6|
|00005190| 30 30 00 d1 61 84 17 99 | 22 93 22 3a 99 a3 31 37 |00..a...|".":..17|
|000051a0| 29 22 11 44 41 54 41 22 | 3a 99 a3 33 29 22 11 54 |)".DATA"|:..3)".T|
|000051b0| 48 49 53 20 53 54 41 54 | 45 4d 45 4e 54 20 44 45 |HIS STAT|EMENT DE|
|000051c0| 43 4c 41 52 45 53 20 43 | 4f 4e 53 54 41 4e 54 53 |CLARES C|ONSTANTS|
|000051d0| 22 00 13 62 85 17 99 22 | 20 20 20 54 48 41 54 20 |"..b..."|   THAT |
|000051e0| 41 52 45 20 41 53 53 49 | 47 4e 45 44 20 54 4f 20 |ARE ASSI|GNED TO |
|000051f0| 56 41 52 49 41 42 4c 45 | 53 20 42 59 20 41 20 20 |VARIABLE|S BY A  |
|00005200| 20 20 20 52 45 41 44 20 | 53 54 41 54 45 4d 45 4e |   READ |STATEMEN|
|00005210| 54 2e 22 00 5a 62 86 17 | 99 a3 33 29 22 11 44 41 |T.".Zb..|..3)".DA|
|00005220| 54 41 20 53 54 41 54 45 | 4d 45 4e 54 53 20 4d 41 |TA STATE|MENTS MA|
|00005230| 59 20 42 45 20 50 4c 41 | 43 45 44 20 41 4e 59 2d |Y BE PLA|CED ANY-|
|00005240| 20 20 20 20 20 20 57 48 | 45 52 45 20 49 4e 20 41 |      WH|ERE IN A|
|00005250| 20 50 52 4f 47 52 41 4d | 22 3b 00 9b 62 87 17 99 | PROGRAM|";..b...|
|00005260| 22 20 41 4e 44 20 4d 41 | 59 20 43 4f 4e 54 41 49 |" AND MA|Y CONTAI|
|00005270| 4e 20 20 20 20 20 20 45 | 49 54 48 45 52 20 4e 55 |N      E|ITHER NU|
|00005280| 4d 45 52 49 43 20 4f 52 | 20 53 54 52 49 4e 47 20 |MERIC OR| STRING |
|00005290| 43 4f 4e 53 54 41 4e 54 | 53 2e 22 00 df 62 88 17 |CONSTANT|S."..b..|
|000052a0| 99 a3 33 29 22 11 42 4c | 41 4e 4b 53 2c 20 43 4f |..3)".BL|ANKS, CO|
|000052b0| 4d 4d 41 53 2c 20 43 4f | 4c 4f 4e 53 2c 20 26 20 |MMAS, CO|LONS, & |
|000052c0| 47 52 41 50 48 49 43 20 | 20 20 20 20 20 20 43 48 |GRAPHIC |      CH|
|000052d0| 41 52 41 43 54 45 52 53 | 20 41 52 45 20 22 3b 00 |ARACTERS| ARE ";.|
|000052e0| 1d 63 89 17 99 22 49 47 | 4e 4f 52 45 44 20 55 4e |.c..."IG|NORED UN|
|000052f0| 4c 45 53 53 20 54 48 45 | 20 20 20 20 20 20 20 53 |LESS THE|       S|
|00005300| 54 52 49 4e 47 20 49 53 | 20 45 4e 43 4c 4f 53 45 |TRING IS| ENCLOSE|
|00005310| 44 20 49 4e 20 51 55 4f | 54 45 53 2e 22 00 28 63 |D IN QUO|TES.".(c|
|00005320| 8b 17 99 a3 38 29 4b 24 | 00 3c 63 8c 17 a1 41 24 |....8)K$|.<c...A$|
|00005330| 3a 8b 41 24 b2 22 22 a7 | 36 30 32 38 00 45 63 8d |:.A$."".|6028.Ec.|
|00005340| 17 89 36 30 30 00 83 63 | 8e 17 99 22 93 22 3a 99 |..600..c|...".":.|
|00005350| a3 31 38 29 22 11 44 49 | 4d 22 3a 99 a3 33 29 22 |.18)".DI|M":..3)"|
|00005360| 11 54 48 45 20 44 49 4d | 45 4e 53 49 4f 4e 20 53 |.THE DIM|ENSION S|
|00005370| 54 41 54 45 4d 45 4e 54 | 20 41 4c 4c 4f 43 41 54 |TATEMENT| ALLOCAT|
|00005380| 45 53 22 00 c8 63 8f 17 | 99 a3 33 29 22 53 50 41 |ES"..c..|..3)"SPA|
|00005390| 43 45 20 49 4e 20 4d 45 | 4d 4f 52 59 20 46 4f 52 |CE IN ME|MORY FOR|
|000053a0| 20 41 52 52 41 59 20 56 | 41 52 49 41 42 4c 45 53 | ARRAY V|ARIABLES|
|000053b0| 2e 20 20 20 20 41 52 52 | 41 59 53 20 57 49 54 48 |.    ARR|AYS WITH|
|000053c0| 20 4d 4f 52 45 20 22 3b | 00 14 64 90 17 99 22 54 | MORE ";|..d..."T|
|000053d0| 48 41 4e 20 31 31 20 45 | 4c 45 4d 45 4e 54 53 20 |HAN 11 E|LEMENTS |
|000053e0| 20 20 20 20 20 20 4d 55 | 53 54 20 42 45 20 44 49 |      MU|ST BE DI|
|000053f0| 4d 45 4e 53 49 4f 4e 45 | 44 20 49 4e 20 41 20 44 |MENSIONE|D IN A D|
|00005400| 49 4d 20 53 54 41 54 45 | 2d 20 20 20 20 20 4d 45 |IM STATE|-     ME|
|00005410| 4e 54 2e 22 00 3c 64 91 | 17 99 a3 36 29 22 11 31 |NT.".<d.|...6)".1|
|00005420| 30 20 44 49 4d 20 41 28 | 31 35 29 2c 41 24 28 33 |0 DIM A(|15),A$(3|
|00005430| 30 29 2c 43 44 25 28 35 | 2c 35 29 22 00 81 64 92 |0),CD%(5|,5)"..d.|
|00005440| 17 99 a3 33 29 22 11 11 | 54 48 45 20 4c 4f 57 45 |...3)"..|THE LOWE|
|00005450| 53 54 20 45 4c 45 4d 45 | 4e 54 20 49 4e 20 41 4e |ST ELEME|NT IN AN|
|00005460| 20 41 52 52 41 59 20 49 | 53 20 20 20 20 20 20 20 | ARRAY I|S       |
|00005470| 5a 45 52 4f 2e 20 44 49 | 4d 20 41 28 35 29 20 22 |ZERO. DI|M A(5) "|
|00005480| 3b 00 c2 64 93 17 99 22 | 44 49 4d 45 4e 53 49 4f |;..d..."|DIMENSIO|
|00005490| 4e 53 20 56 41 52 49 41 | 42 4c 45 20 20 20 20 20 |NS VARIA|BLE     |
|000054a0| 20 57 49 54 48 20 36 20 | 45 4c 45 4d 45 4e 54 53 | WITH 6 |ELEMENTS|
|000054b0| 2e 28 5a 45 52 4f 20 49 | 53 20 31 20 45 4c 45 4d |.(ZERO I|S 1 ELEM|
|000054c0| 2e 29 00 cd 64 95 17 99 | a3 38 29 4b 24 00 e1 64 |.)..d...|.8)K$..d|
|000054d0| 96 17 a1 41 24 3a 8b 41 | 24 b2 22 22 a7 36 30 33 |...A$:.A|$."".603|
|000054e0| 38 00 ea 64 97 17 89 36 | 30 30 00 2b 65 98 17 99 |8..d...6|00.+e...|
|000054f0| 22 93 22 3a 99 a3 31 38 | 29 22 11 46 52 45 22 3a |".":..18|)".FRE":|
|00005500| 99 a3 33 29 22 11 54 48 | 49 53 20 46 55 4e 43 54 |..3)".TH|IS FUNCT|
|00005510| 49 4f 4e 20 54 45 4c 4c | 53 20 59 4f 55 20 48 4f |ION TELL|S YOU HO|
|00005520| 57 20 4d 55 43 48 20 52 | 41 4d 22 00 77 65 99 17 |W MUCH R|AM".we..|
|00005530| 99 22 20 20 20 49 53 20 | 41 56 41 49 4c 41 42 4c |."   IS |AVAILABL|
|00005540| 45 20 46 4f 52 20 41 20 | 50 52 4f 47 52 41 4d 2e |E FOR A |PROGRAM.|
|00005550| 20 49 46 20 41 20 20 20 | 20 20 20 20 20 50 52 4f | IF A   |     PRO|
|00005560| 47 52 41 4d 20 55 53 45 | 53 20 4d 4f 52 45 20 53 |GRAM USE|S MORE S|
|00005570| 50 41 43 45 20 22 3b 00 | be 65 9a 17 99 22 54 48 |PACE ";.|.e..."TH|
|00005580| 41 4e 20 41 56 41 49 4c | 2d 20 20 20 20 20 41 42 |AN AVAIL|-     AB|
|00005590| 4c 45 2c 20 27 4f 55 54 | 20 4f 46 20 4d 45 4d 4f |LE, 'OUT| OF MEMO|
|000055a0| 52 59 27 20 45 52 52 4f | 52 20 57 49 4c 4c 20 20 |RY' ERRO|R WILL  |
|000055b0| 20 20 20 20 20 20 41 50 | 50 45 41 52 2e 22 00 02 |      AP|PEAR."..|
|000055c0| 66 9b 17 99 a3 33 29 22 | 11 54 48 49 53 20 46 55 |f....3)"|.THIS FU|
|000055d0| 4e 43 54 49 4f 4e 20 49 | 53 20 4e 4f 52 4d 41 4c |NCTION I|S NORMAL|
|000055e0| 4c 59 20 55 53 45 44 20 | 49 4e 20 41 4e 20 20 20 |LY USED |IN AN   |
|000055f0| 20 49 4d 4d 45 44 49 41 | 54 45 20 4d 4f 44 45 20 | IMMEDIA|TE MODE |
|00005600| 22 3b 00 35 66 9c 17 99 | 22 53 54 41 54 45 4d 45 |";.5f...|"STATEME|
|00005610| 4e 54 2e 22 3a 99 a3 39 | 29 22 11 3f 20 20 20 20 |NT.":..9|)".?    |
|00005620| 20 20 46 52 45 28 30 29 | 20 20 20 20 20 20 20 20 |  FRE(0)|        |
|00005630| 20 20 20 20 22 00 77 66 | 9d 17 99 a3 33 29 22 11 |    ".wf|....3)".|
|00005640| 28 54 48 45 20 41 42 4f | 56 45 20 54 45 4c 4c 53 |(THE ABO|VE TELLS|
|00005650| 20 59 4f 55 20 54 48 45 | 20 43 55 52 52 45 4e 54 | YOU THE| CURRENT|
|00005660| 20 20 20 20 20 20 20 20 | 41 56 41 49 4c 41 42 4c |        |AVAILABL|
|00005670| 45 20 52 41 4d 29 22 00 | 82 66 9f 17 99 a3 38 29 |E RAM)".|.f....8)|
|00005680| 4b 24 00 96 66 a0 17 a1 | 41 24 3a 8b 41 24 b2 22 |K$..f...|A$:.A$."|
|00005690| 22 a7 36 30 34 38 00 9f | 66 a1 17 89 36 30 30 00 |".6048..|f...600.|
|000056a0| de 66 a2 17 99 22 93 22 | 3a 99 a3 31 38 29 22 11 |.f..."."|:..18)".|
|000056b0| 4c 45 54 22 3a 99 a3 33 | 29 22 11 54 48 49 53 20 |LET":..3|)".THIS |
|000056c0| 53 54 41 54 45 4d 45 4e | 54 20 49 53 20 55 53 45 |STATEMEN|T IS USE|
|000056d0| 44 20 54 4f 20 41 53 53 | 49 47 4e 20 41 22 00 20 |D TO ASS|IGN A". |
|000056e0| 67 a3 17 99 a3 33 29 22 | 4e 55 4d 42 45 52 20 54 |g....3)"|NUMBER T|
|000056f0| 4f 20 41 20 56 41 52 49 | 41 42 4c 45 2e 22 3a 99 |O A VARI|ABLE.":.|
|00005700| a3 33 29 22 11 54 48 45 | 20 57 4f 52 44 20 4c 45 |.3)".THE| WORD LE|
|00005710| 54 20 49 53 20 4f 50 54 | 49 4f 4e 41 4c 20 22 3b |T IS OPT|IONAL ";|
|00005720| 00 66 67 a4 17 99 22 41 | 4e 44 20 49 53 22 3a 99 |.fg..."A|ND IS":.|
|00005730| a3 33 29 22 53 45 4c 44 | 4f 4d 20 55 53 45 44 20 |.3)"SELD|OM USED |
|00005740| 41 53 20 49 54 20 55 53 | 45 53 20 4d 45 4d 4f 52 |AS IT US|ES MEMOR|
|00005750| 59 20 55 4e 4e 45 43 2d | 20 20 20 20 45 53 53 41 |Y UNNEC-|    ESSA|
|00005760| 52 49 4c 59 2e 22 00 99 | 67 a5 17 99 a3 31 32 29 |RILY."..|g....12)|
|00005770| 22 11 31 30 20 4c 45 54 | 20 58 3d 31 36 22 3a 99 |".10 LET| X=16":.|
|00005780| a3 31 35 29 22 11 4f 52 | 22 3a 99 a3 31 32 29 22 |.15)".OR|":..12)"|
|00005790| 11 31 30 20 58 3d 31 36 | 22 00 a4 67 a9 17 99 a3 |.10 X=16|"..g....|
|000057a0| 38 29 4b 24 00 b8 67 aa | 17 a1 41 24 3a 8b 41 24 |8)K$..g.|..A$:.A$|
|000057b0| b2 22 22 a7 36 30 35 38 | 00 c1 67 ab 17 89 36 30 |."".6058|..g...60|
|000057c0| 30 00 01 68 ac 17 99 22 | 93 22 3a 99 a3 31 37 29 |0..h..."|.":..17)|
|000057d0| 22 11 52 45 41 44 22 3a | 99 a3 33 29 22 11 54 48 |".READ":|..3)".TH|
|000057e0| 49 53 20 53 54 41 54 45 | 4d 45 4e 54 20 43 41 55 |IS STATE|MENT CAU|
|000057f0| 53 45 53 20 4e 41 4d 45 | 53 20 46 52 4f 4d 20 22 |SES NAME|S FROM "|
|00005800| 3b 00 4b 68 ad 17 99 22 | 43 4f 4e 2d 20 20 20 53 |;.Kh..."|CON-   S|
|00005810| 54 41 4e 54 53 20 49 4e | 20 44 41 54 41 20 53 54 |TANTS IN| DATA ST|
|00005820| 41 54 45 4d 45 4e 54 53 | 20 54 4f 20 42 45 20 41 |ATEMENTS| TO BE A|
|00005830| 53 53 2d 20 20 20 20 49 | 47 4e 45 44 20 54 4f 20 |SS-    I|GNED TO |
|00005840| 56 41 52 49 41 42 4c 45 | 53 2e 22 00 90 68 ae 17 |VARIABLE|S."..h..|
|00005850| 99 a3 33 29 22 11 57 48 | 45 4e 20 52 45 41 44 20 |..3)".WH|EN READ |
|00005860| 49 53 20 4c 4f 4f 4b 49 | 4e 47 20 46 4f 52 20 41 |IS LOOKI|NG FOR A|
|00005870| 20 4e 55 4d 42 45 52 20 | 41 4e 44 20 20 20 41 20 | NUMBER |AND   A |
|00005880| 53 54 52 49 4e 47 20 49 | 53 20 52 45 41 44 22 3b |STRING I|S READ";|
|00005890| 00 ce 68 af 17 99 22 20 | 49 4e 53 54 45 41 44 20 |..h..." |INSTEAD |
|000058a0| 4f 46 20 41 20 4e 55 4d | 42 45 52 2c 20 20 20 41 |OF A NUM|BER,   A|
|000058b0| 20 54 59 50 45 20 4d 49 | 53 4d 41 54 43 48 20 45 | TYPE MI|SMATCH E|
|000058c0| 52 52 4f 52 20 41 50 50 | 45 41 52 53 2e 22 00 13 |RROR APP|EARS."..|
|000058d0| 69 b0 17 99 a3 33 29 22 | 11 54 48 45 52 45 20 43 |i....3)"|.THERE C|
|000058e0| 41 4e 20 42 45 20 4d 4f | 52 45 20 44 41 54 41 20 |AN BE MO|RE DATA |
|000058f0| 49 54 45 4d 53 20 54 48 | 41 4e 20 20 20 20 20 20 |ITEMS TH|AN      |
|00005900| 20 52 45 41 44 20 53 54 | 41 54 45 4d 45 4e 54 53 | READ ST|ATEMENTS|
|00005910| 2c 22 3b 00 58 69 b1 17 | 99 22 20 42 55 54 20 54 |,";.Xi..|." BUT T|
|00005920| 4f 4f 20 46 45 57 20 49 | 54 45 4d 53 20 20 20 20 |OO FEW I|TEMS    |
|00005930| 20 20 57 49 4c 4c 20 52 | 45 53 55 4c 54 20 49 4e |  WILL R|ESULT IN|
|00005940| 20 2d 27 3f 4f 55 54 20 | 4f 46 20 44 41 54 41 20 | -'?OUT |OF DATA |
|00005950| 45 52 52 4f 52 2e 27 22 | 00 63 69 b3 17 99 a3 38 |ERROR.'"|.ci....8|
|00005960| 29 4b 24 00 77 69 b4 17 | a1 41 24 3a 8b 41 24 b2 |)K$.wi..|.A$:.A$.|
|00005970| 22 22 a7 36 30 36 38 00 | 80 69 b5 17 89 36 30 30 |"".6068.|.i...600|
|00005980| 00 c5 69 b6 17 99 22 93 | 22 3a 99 a3 31 37 29 22 |..i...".|":..17)"|
|00005990| 11 52 45 53 54 4f 52 45 | 22 3a 99 a3 33 29 22 11 |.RESTORE|":..3)".|
|000059a0| 54 48 49 53 20 53 54 41 | 54 45 4d 45 4e 54 20 52 |THIS STA|TEMENT R|
|000059b0| 45 53 45 54 53 20 54 48 | 45 20 50 4f 49 4e 54 45 |ESETS TH|E POINTE|
|000059c0| 52 20 54 4f 22 00 0d 6a | b7 17 99 a3 33 29 22 54 |R TO"..j|....3)"T|
|000059d0| 48 45 20 44 41 54 41 20 | 43 4f 4e 53 54 41 4e 54 |HE DATA |CONSTANT|
|000059e0| 20 54 4f 20 42 45 20 52 | 45 41 44 2e 22 3a 99 a3 | TO BE R|EAD.":..|
|000059f0| 33 29 22 11 57 48 45 4e | 20 55 53 45 44 20 49 4e |3)".WHEN| USED IN|
|00005a00| 20 41 20 50 52 4f 47 52 | 41 4d 20 22 3b 00 44 6a | A PROGR|AM ";.Dj|
|00005a10| b8 17 99 22 49 54 20 41 | 4c 4c 4f 57 53 20 54 48 |..."IT A|LLOWS TH|
|00005a20| 45 20 20 20 20 44 41 54 | 41 20 53 54 41 54 45 4d |E    DAT|A STATEM|
|00005a30| 45 4e 54 53 20 54 4f 20 | 42 45 20 52 45 2d 52 45 |ENTS TO |BE RE-RE|
|00005a40| 41 44 2e 22 00 89 6a b9 | 17 99 a3 33 29 22 11 52 |AD."..j.|...3)".R|
|00005a50| 45 53 54 4f 52 45 20 49 | 53 20 55 53 45 44 20 42 |ESTORE I|S USED B|
|00005a60| 59 20 49 54 53 45 4c 46 | 20 49 4e 20 41 20 4c 49 |Y ITSELF| IN A LI|
|00005a70| 4e 45 20 20 20 20 20 49 | 4e 20 49 4d 4d 45 44 49 |NE     I|N IMMEDI|
|00005a80| 41 54 45 20 4f 52 20 22 | 3b 00 b2 6a ba 17 99 22 |ATE OR "|;..j..."|
|00005a90| 50 52 4f 47 52 41 4d 20 | 4d 4f 44 45 2e 22 3a 99 |PROGRAM |MODE.":.|
|00005aa0| a3 31 35 29 22 11 31 31 | 30 20 52 45 53 54 4f 52 |.15)".11|0 RESTOR|
|00005ab0| 45 22 00 bd 6a bd 17 99 | a3 38 29 4b 24 00 d1 6a |E"..j...|.8)K$..j|
|00005ac0| be 17 a1 41 24 3a 8b 41 | 24 b2 22 22 a7 36 30 37 |...A$:.A|$."".607|
|00005ad0| 38 00 db 6a bf 17 89 20 | 36 30 30 00 19 6b 62 1b |8..j... |600..kb.|
|00005ae0| 99 22 93 22 3a 99 a3 31 | 36 29 22 11 41 53 43 22 |.".":..1|6)".ASC"|
|00005af0| 3a 99 a3 33 29 22 11 54 | 48 49 53 20 4e 55 4d 45 |:..3)".T|HIS NUME|
|00005b00| 52 49 43 20 46 55 4e 43 | 54 49 4f 4e 20 57 49 4c |RIC FUNC|TION WIL|
|00005b10| 4c 20 52 45 54 55 52 4e | 22 00 43 6b 63 1b 99 a3 |L RETURN|".Ckc...|
|00005b20| 33 29 22 41 20 4e 55 4d | 42 45 52 20 57 48 49 43 |3)"A NUM|BER WHIC|
|00005b30| 48 20 43 4f 52 52 45 53 | 50 4f 4e 44 53 20 54 4f |H CORRES|PONDS TO|
|00005b40| 20 22 3b 00 87 6b 64 1b | 99 a3 33 29 22 43 4f 4d | ";..kd.|..3)"COM|
|00005b50| 4d 4f 44 2d 20 20 20 4f | 52 45 20 41 53 43 49 49 |MOD-   O|RE ASCII|
|00005b60| 20 56 41 4c 55 45 20 4f | 46 20 54 48 45 20 46 49 | VALUE O|F THE FI|
|00005b70| 52 53 54 20 43 48 41 52 | 2d 20 20 20 20 20 20 41 |RST CHAR|-      A|
|00005b80| 43 54 45 52 20 22 3b 00 | cb 6b 65 1b 99 22 49 4e |CTER ";.|.ke.."IN|
|00005b90| 20 41 20 53 54 52 49 4e | 47 2e 22 3a 99 a3 33 29 | A STRIN|G.":..3)|
|00005ba0| 22 11 45 58 41 4d 50 4c | 45 3a 20 32 30 20 50 52 |".EXAMPL|E: 20 PR|
|00005bb0| 49 4e 54 20 41 53 43 28 | 22 c7 28 33 34 29 3b 22 |INT ASC(|".(34);"|
|00005bc0| 5a 22 c7 28 33 34 29 3b | 22 29 22 00 08 6c 66 1b |Z".(34);|")"..lf.|
|00005bd0| 99 a3 31 32 29 22 33 30 | 20 3f 20 41 53 43 28 22 |..12)"30| ? ASC("|
|00005be0| c7 28 33 34 29 3b 22 44 | 4f 4c 4c 22 c7 28 33 34 |.(34);"D|OLL".(34|
|00005bf0| 29 3b 22 29 22 3a 99 a3 | 31 32 29 22 34 30 20 41 |);")":..|12)"40 A|
|00005c00| 3d 41 53 43 28 41 24 29 | 00 3e 6c 67 1b 99 a3 33 |=ASC(A$)|.>lg...3|
|00005c10| 29 22 11 50 52 49 4e 54 | 20 41 53 43 28 22 c7 28 |)".PRINT| ASC(".(|
|00005c20| 33 34 29 3b 22 41 22 c7 | 28 33 34 29 3b 22 29 20 |34);"A".|(34);") |
|00005c30| a0 28 52 45 54 55 52 4e | 53 20 36 35 29 22 00 49 |.(RETURN|S 65)".I|
|00005c40| 6c 69 1b 99 a3 38 29 4b | 24 00 5d 6c 6a 1b a1 41 |li...8)K|$.]lj..A|
|00005c50| 24 3a 8b 41 24 b2 22 22 | a7 37 30 31 38 00 66 6c |$:.A$.""|.7018.fl|
|00005c60| 6b 1b 89 37 30 30 00 a1 | 6c 6c 1b 99 22 93 22 3a |k..700..|ll..".":|
|00005c70| 99 a3 31 36 29 22 11 43 | 48 52 24 22 3a 99 a3 33 |..16)".C|HR$":..3|
|00005c80| 29 22 11 52 45 54 55 52 | 4e 53 20 54 48 45 20 53 |)".RETUR|NS THE S|
|00005c90| 54 52 49 4e 47 20 52 45 | 50 52 45 53 45 4e 54 22 |TRING RE|PRESENT"|
|00005ca0| 3b 00 c3 6c 6d 1b 99 22 | 41 54 49 4f 4e 20 20 20 |;..lm.."|ATION   |
|00005cb0| 20 20 20 20 4f 46 20 41 | 53 43 49 49 20 43 4f 44 |    OF A|SCII COD|
|00005cc0| 45 2e 22 00 05 6d 6e 1b | 99 22 20 20 20 11 55 53 |E."..mn.|."   .US|
|00005cd0| 45 20 43 48 52 24 28 4e | 4e 4e 29 20 28 57 48 45 |E CHR$(N|NN) (WHE|
|00005ce0| 52 45 20 4e 4e 4e 20 49 | 53 20 41 53 43 49 49 20 |RE NNN I|S ASCII |
|00005cf0| 4e 4f 2e 20 20 20 46 52 | 4f 4d 20 30 20 54 4f 20 |NO.   FR|OM 0 TO |
|00005d00| 32 35 35 29 22 00 3f 6d | 6f 1b 99 a3 36 29 22 11 |255)".?m|o...6)".|
|00005d10| 31 30 20 50 52 49 4e 54 | 20 43 48 52 24 28 33 34 |10 PRINT| CHR$(34|
|00005d20| 29 3b 22 c7 28 33 34 29 | 3b 22 42 41 42 59 22 c7 |);".(34)|;"BABY".|
|00005d30| 28 33 34 29 3b 22 43 48 | 52 24 28 33 34 29 22 00 |(34);"CH|R$(34)".|
|00005d40| 6d 6d 70 1b 99 22 11 20 | 20 20 20 20 20 20 28 52 |mmp..". |      (R|
|00005d50| 45 54 55 52 4e 53 20 22 | c7 28 33 34 29 3b 22 42 |ETURNS "|.(34);"B|
|00005d60| 41 42 59 22 c7 28 33 34 | 29 3b 22 29 22 00 ae 6d |ABY".(34|);")"..m|
|00005d70| 71 1b 99 22 20 20 20 11 | 57 48 45 4e 20 49 54 20 |q.."   .|WHEN IT |
|00005d80| 49 53 20 49 4d 50 4f 53 | 53 49 42 4c 45 20 54 4f |IS IMPOS|SIBLE TO|
|00005d90| 20 55 53 45 20 41 20 4b | 45 59 20 41 53 20 20 20 | USE A K|EY AS   |
|00005da0| 27 52 45 54 55 52 4e 27 | 20 55 53 45 3a 22 00 db |'RETURN'| USE:"..|
|00005db0| 6d 72 1b 99 22 20 20 20 | 11 31 30 30 20 47 45 54 |mr.."   |.100 GET|
|00005dc0| 20 41 24 3a 49 46 41 24 | 3d 43 48 52 24 28 31 33 | A$:IFA$|=CHR$(13|
|00005dd0| 29 20 47 4f 54 4f 20 32 | 30 30 22 00 e6 6d 73 1b |) GOTO 2|00"..ms.|
|00005de0| 99 a3 38 29 4b 24 00 fb | 6d 74 1b a1 20 41 24 3a |..8)K$..|mt.. A$:|
|00005df0| 8b 41 24 b2 22 22 a7 37 | 30 32 38 00 04 6e 75 1b |.A$."".7|028..nu.|
|00005e00| 89 37 30 30 00 41 6e 76 | 1b 99 22 93 22 3a 99 a3 |.700.Anv|..".":..|
|00005e10| 31 36 29 22 11 4c 45 46 | 54 24 22 3a 99 a3 33 29 |16)".LEF|T$":..3)|
|00005e20| 22 11 52 45 54 55 52 4e | 53 20 4c 45 46 54 4d 4f |".RETURN|S LEFTMO|
|00005e30| 53 54 20 43 48 41 52 41 | 43 54 45 52 28 53 29 22 |ST CHARA|CTER(S)"|
|00005e40| 3b 00 5b 6e 77 1b 99 22 | 20 4f 46 20 41 20 20 20 |;.[nw.."| OF A   |
|00005e50| 20 20 20 53 54 52 49 4e | 47 2e 22 00 a7 6e 78 1b |   STRIN|G."..nx.|
|00005e60| 99 22 20 20 20 11 42 24 | 3d 4c 45 46 54 24 28 41 |."   .B$|=LEFT$(A|
|00005e70| 24 2c 32 29 20 52 45 54 | 55 52 4e 53 20 54 48 45 |$,2) RET|URNS THE|
|00005e80| 20 4c 45 46 54 4d 4f 53 | 54 20 32 20 20 20 43 48 | LEFTMOS|T 2   CH|
|00005e90| 41 52 41 43 54 45 52 53 | 20 4f 46 20 53 54 52 49 |ARACTERS| OF STRI|
|00005ea0| 4e 47 20 41 24 2e 22 00 | e6 6e 79 1b 99 22 20 20 |NG A$.".|.ny.."  |
|00005eb0| 20 11 50 52 49 4e 54 20 | 4c 45 46 54 24 28 22 c7 | .PRINT |LEFT$(".|
|00005ec0| 28 33 34 29 3b 22 52 55 | 42 42 45 52 22 c7 28 33 |(34);"RU|BBER".(3|
|00005ed0| 34 29 3b 22 2c 33 29 20 | 20 50 52 49 4e 54 53 20 |4);",3) | PRINTS |
|00005ee0| 27 52 55 42 27 22 00 1a | 6f 7a 1b 99 a3 31 30 29 |'RUB'"..|oz...10)|
|00005ef0| 22 31 30 20 41 24 3d 4c | 45 46 54 24 28 22 c7 28 |"10 A$=L|EFT$(".(|
|00005f00| 33 34 29 3b 22 43 4f 4d | 4d 4f 44 4f 52 45 22 c7 |34);"COM|MODORE".|
|00005f10| 28 33 34 29 3b 22 2c 35 | 29 22 00 59 6f 7b 1b 99 |(34);",5|)".Yo{..|
|00005f20| a3 31 30 29 22 32 30 20 | 50 52 49 4e 54 20 41 24 |.10)"20 |PRINT A$|
|00005f30| 11 11 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 28 |........|.......(|
|00005f40| 52 45 54 55 52 4e 53 20 | 27 43 4f 4d 4d 4f 27 20 |RETURNS |'COMMO' |
|00005f50| 57 48 45 4e 20 52 55 4e | 29 00 64 6f 7d 1b 99 a3 |WHEN RUN|).do}...|
|00005f60| 38 29 4b 24 00 78 6f 7e | 1b a1 41 24 3a 8b 41 24 |8)K$.xo~|..A$:.A$|
|00005f70| b2 22 22 a7 37 30 33 38 | 00 81 6f 7f 1b 89 37 30 |."".7038|..o...70|
|00005f80| 30 00 bd 6f 80 1b 99 22 | 93 22 3a 99 a3 31 36 29 |0..o..."|.":..16)|
|00005f90| 22 11 4c 45 4e 22 3a 99 | a3 33 29 22 11 52 45 54 |".LEN":.|.3)".RET|
|00005fa0| 55 52 4e 53 20 54 48 45 | 20 4c 45 4e 47 54 48 20 |URNS THE| LENGTH |
|00005fb0| 4f 46 20 41 20 53 54 52 | 49 4e 47 2e 22 00 f4 6f |OF A STR|ING."..o|
|00005fc0| 81 1b 99 a3 33 29 22 11 | 50 52 49 4e 54 20 4c 45 |....3)".|PRINT LE|
|00005fd0| 4e 28 22 c7 28 33 34 29 | 3b 22 41 50 50 4c 45 22 |N(".(34)|;"APPLE"|
|00005fe0| c7 28 33 34 29 3b 22 29 | 20 44 49 53 50 4c 41 59 |.(34);")| DISPLAY|
|00005ff0| 53 20 35 22 00 2b 70 82 | 1b 99 a3 33 29 22 11 41 |S 5".+p.|...3)".A|
|00006000| 3d 4c 45 4e 28 22 c7 28 | 33 34 29 3b 22 43 41 54 |=LEN(".(|34);"CAT|
|00006010| 22 c7 28 33 34 29 3b 22 | 2b 22 c7 28 33 34 29 3b |".(34);"|+".(34);|
|00006020| 22 44 4f 47 22 c7 28 33 | 34 29 3b 00 4e 70 83 1b |"DOG".(3|4);.Np..|
|00006030| 99 22 29 3a 50 52 49 4e | 54 20 41 22 3a 99 a3 39 |."):PRIN|T A":..9|
|00006040| 29 22 11 28 52 45 54 55 | 52 4e 53 20 36 29 00 59 |)".(RETU|RNS 6).Y|
|00006050| 70 87 1b 99 a3 38 29 4b | 24 00 6e 70 88 1b a1 20 |p....8)K|$.np... |
|00006060| 41 24 3a 8b 41 24 b2 22 | 22 a7 37 30 34 38 00 77 |A$:.A$."|".7048.w|
|00006070| 70 89 1b 89 37 30 30 00 | b5 70 8a 1b 99 22 93 22 |p...700.|.p..."."|
|00006080| 3a 99 a3 31 36 29 22 11 | 4d 49 44 24 22 3a 99 a3 |:..16)".|MID$":..|
|00006090| 33 29 22 11 52 45 54 55 | 52 4e 53 20 41 20 53 50 |3)".RETU|RNS A SP|
|000060a0| 45 43 49 46 49 45 44 20 | 50 4f 52 54 49 4f 4e 20 |ECIFIED |PORTION |
|000060b0| 4f 46 20 41 22 00 f3 70 | 8b 1b 99 22 20 20 20 53 |OF A"..p|..."   S|
|000060c0| 54 52 49 4e 47 2e 22 3a | 99 a3 33 29 22 11 4d 49 |TRING.":|..3)".MI|
|000060d0| 44 24 28 22 c7 28 33 34 | 29 3b 22 43 4f 4d 4d 4f |D$(".(34|);"COMMO|
|000060e0| 44 4f 52 45 22 c7 28 33 | 34 29 3b 22 2c 33 2c 32 |DORE".(3|4);",3,2|
|000060f0| 29 22 3b 00 0a 71 8c 1b | 99 22 20 20 28 52 45 54 |)";..q..|."  (RET|
|00006100| 55 52 4e 53 20 27 4d 4d | 27 29 00 38 71 8d 1b 99 |URNS 'MM|').8q...|
|00006110| a3 33 29 22 11 4d 49 44 | 24 28 22 c7 28 33 34 29 |.3)".MID|$(".(34)|
|00006120| 3b 22 43 4f 4d 4d 4f 44 | 4f 52 45 22 c7 28 33 34 |;"COMMOD|ORE".(34|
|00006130| 29 3b 22 2c 37 29 22 3b | 00 50 71 8e 1b 99 22 20 |);",7)";|.Pq..." |
|00006140| 20 28 52 45 54 55 52 4e | 53 20 27 4f 52 45 27 29 | (RETURN|S 'ORE')|
|00006150| 00 5b 71 91 1b 99 a3 38 | 29 4b 24 00 6f 71 92 1b |.[q....8|)K$.oq..|
|00006160| a1 41 24 3a 8b 41 24 b2 | 22 22 a7 37 30 35 38 00 |.A$:.A$.|"".7058.|
|00006170| 78 71 93 1b 89 37 30 30 | 00 bb 71 94 1b 99 22 93 |xq...700|..q...".|
|00006180| 22 3a 99 a3 31 36 29 22 | 11 52 49 47 48 54 24 22 |":..16)"|.RIGHT$"|
|00006190| 3a 99 a3 33 29 22 11 52 | 45 54 55 52 4e 53 20 54 |:..3)".R|ETURNS T|
|000061a0| 48 45 20 52 49 47 48 54 | 4d 4f 53 54 20 43 48 41 |HE RIGHT|MOST CHA|
|000061b0| 52 41 43 54 45 52 53 20 | 49 4e 22 00 f7 71 95 1b |RACTERS |IN"..q..|
|000061c0| 99 22 20 20 20 41 20 53 | 54 52 49 4e 47 2e 22 3a |."   A S|TRING.":|
|000061d0| 99 a3 33 29 22 11 52 49 | 47 48 54 24 28 22 c7 28 |..3)".RI|GHT$(".(|
|000061e0| 33 34 29 3b 22 42 41 53 | 49 43 22 c7 28 33 34 29 |34);"BAS|IC".(34)|
|000061f0| 3b 22 2c 33 29 22 3b 00 | 0f 72 96 1b 99 22 20 20 |;",3)";.|.r..."  |
|00006200| 28 52 45 54 55 52 4e 53 | 20 27 53 49 43 27 29 00 |(RETURNS| 'SIC').|
|00006210| 3e 72 97 1b 99 a3 37 29 | 22 11 31 30 20 57 52 44 |>r....7)|".10 WRD|
|00006220| 24 3d 22 c7 28 33 34 29 | 3b 22 43 4f 4d 4d 4f 44 |$=".(34)|;"COMMOD|
|00006230| 4f 52 45 20 43 4c 55 42 | 22 c7 28 33 34 29 00 67 |ORE CLUB|".(34).g|
|00006240| 72 98 1b 99 a3 37 29 22 | 32 30 20 50 52 49 4e 54 |r....7)"|20 PRINT|
|00006250| 20 52 49 47 48 54 24 28 | 57 52 44 24 2c 34 29 22 | RIGHT$(|WRD$,4)"|
|00006260| 3a 99 a3 31 34 29 22 00 | 8a 72 99 1b 99 a3 37 29 |:..14)".|.r....7)|
|00006270| 22 28 52 45 54 55 52 4e | 53 20 27 43 4c 55 42 27 |"(RETURN|S 'CLUB'|
|00006280| 20 57 48 45 4e 20 52 55 | 4e 29 00 95 72 9b 1b 99 | WHEN RU|N)..r...|
|00006290| a3 38 29 4b 24 00 aa 72 | 9c 1b a1 20 41 24 3a 8b |.8)K$..r|... A$:.|
|000062a0| 41 24 b2 22 22 a7 37 30 | 36 38 00 b3 72 9d 1b 89 |A$."".70|68..r...|
|000062b0| 37 30 30 00 f2 72 9e 1b | 99 22 93 22 3a 99 a3 31 |700..r..|.".":..1|
|000062c0| 36 29 22 11 53 54 52 24 | 22 3a 99 a3 33 29 22 11 |6)".STR$|":..3)".|
|000062d0| 52 45 54 55 52 4e 53 20 | 54 48 45 20 53 54 52 49 |RETURNS |THE STRI|
|000062e0| 4e 47 20 52 45 50 52 45 | 53 45 4e 54 41 54 49 4f |NG REPRE|SENTATIO|
|000062f0| 4e 22 00 33 73 9f 1b 99 | 22 20 20 20 4f 46 20 54 |N".3s...|"   OF T|
|00006300| 48 45 20 4e 55 4d 45 52 | 49 43 20 41 52 47 55 4d |HE NUMER|IC ARGUM|
|00006310| 45 4e 54 2e 22 3a 99 a3 | 33 29 22 11 45 58 41 4d |ENT.":..|3)".EXAM|
|00006320| 50 4c 45 3a 20 20 31 30 | 20 41 42 3d 34 35 2e 33 |PLE:  10| AB=45.3|
|00006330| 3a 22 3b 00 5b 73 a0 1b | 99 22 41 24 3d 53 54 52 |:";.[s..|."A$=STR|
|00006340| 24 28 41 42 29 22 3a 99 | a3 31 33 29 22 32 30 20 |$(AB)":.|.13)"20 |
|00006350| 50 52 49 4e 54 20 41 42 | 2c 41 24 00 80 73 a1 1b |PRINT AB|,A$..s..|
|00006360| 99 a3 31 33 29 22 11 28 | 52 45 54 55 52 4e 53 20 |..13)".(|RETURNS |
|00006370| 34 35 2e 33 20 20 20 20 | 20 20 34 35 2e 33 29 22 |45.3    |  45.3)"|
|00006380| 00 c6 73 a2 1b 99 a3 33 | 29 22 11 41 4e 59 20 4e |..s....3|)".ANY N|
|00006390| 55 4d 42 45 52 20 43 4f | 4e 56 45 52 54 45 44 20 |UMBER CO|NVERTED |
|000063a0| 54 4f 20 53 54 52 49 4e | 47 20 56 41 4c 55 45 20 |TO STRIN|G VALUE |
|000063b0| 20 20 20 54 48 45 20 4e | 55 4d 42 45 52 20 53 48 |   THE N|UMBER SH|
|000063c0| 4f 57 4e 20 22 3b 00 f9 | 73 a3 1b 99 22 57 49 4c |OWN ";..|s..."WIL|
|000063d0| 4c 20 42 45 20 50 52 45 | 43 45 44 45 44 20 41 4e |L BE PRE|CEDED AN|
|000063e0| 44 20 20 20 46 4f 4c 4c | 4f 57 45 44 20 42 59 20 |D   FOLL|OWED BY |
|000063f0| 41 20 53 50 41 43 45 2e | 22 00 04 74 a5 1b 99 a3 |A SPACE.|"..t....|
+--------+-------------------------+-------------------------+--------+--------+